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1 


1.  INTRODUCTION 


Accounting  for  stability  and  control  requirements  in  the  course  of  conceptual  design  of 
airplanes  is  usually  done  after  the  initial  sizing  of  the  airplane  (for  wing  loading,  thrust  or 
power  loading  and  take-off  gross  weight)  is  completed  (RA92,  R0185,  T082).  When 
stability  and  control  constraints  are  first  considered,  particularly  in  an  educational  context 
in  most  undergraduate  airplane  design  courses,  only  static  stability  and  control 
requirements  are  usually  addressed  first,  and  control  surfaces  are  frequently  sized  by 
using  statistical  equations  based  on  "good  practices"  of  the  past  (RA92). 

Dynamic  stability  and  control  requirements  are  usually  not  addressed  at  all  early  in  the 
design  process.  They  are  usually  examined  when  the  overall  configuration  is  almost 
frozen,  based  on  the  common  assumption  that  it  is  possible  to  solve  any  problems  in  the 
area  of  dynamic  stability  and  control  by  minor  modifications  of  the  configuration  or  by 
implementation  of  some  forms  of  active  control. 

The  challenge  of  designing  an  active  control  system  to  correct  deficiencies  of  a  given 
airplane  configuration  is  then  delegated  to  controls  engineers  who  might  find  it  extremely 
difficult  to  design  an  efficient  control  system  for  the  configuration  they  have.  If  only  it 
were  possible  to  design  the  configuration  of  the  airplane  and  its  control  system 
simultaneously,  so  that  they  affect  each  other,  the  resulting  configuration  will  evolve  to 
be  more  control-friendly,  the  control  system  more  efficient,  and  the  combined  product 
more  efficient. 
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Advantages  of  integrated  airplane  configuration  /  control  system  design  optimization  in 
conceptual  design  have  been  recognized  for  quite  a  while  (AM60,  MK90,  M092).  Even 
in  the  case  of  airplanes  with  no  active  controls,  the  utilization  of  optimization  techniques 
early  in  the  design  process  to  search  for  designs  that  meet  a  large  set  of  design 
requirements  (including  dynamic  stability  and  control  constraints)  can  lead  to  desirable 
designs  and  prevent  subsequent  costly  modifications. 

The  goal  of  the  work  described  here  is  to  develop  a  design  optimization  capability  for  the 
conceptual  design  of  airplanes,  where  static  and  dynamic  stability  and  control 
requirements  are  addressed  simultaneously  together  with  mission  and  performance 
requirements.  The  desire  is  to  size  the  airplane,  determine  dimensions  and  locations  of 
tail  surfaces  (horizontal  and  vertical  tails),  control  surfaces  (elevator,  rudder,  ailerons), 
and  landing  gear,  and  distribute  systems  and  components  all  in  one  step  in  an  optimal 
manner.  Analysis  methods  used  in  the  areas  of  applied  aerodynamics,  weight  and 
balance,  mission  analysis,  performance,  and  static  /  dynamic  stability  and  control  are  all 
computationally  fast,  leading  to  an  analysis  module  that  is  extremely  efficient  for 
optimization  or  parametric  studies.  Integration  of  the  optimization  modules  with  the 
analysis  module  is  done  in  a  way  that  makes  it  possible  to  easily  change  selections  of 
design  variables,  constraints,  and  objective  function  for  different  design  optimization 
studies. 

The  present  capability  constitutes  a  first  step  on  the  road  to  the  development  of  integrated 
airframe  /  control  system  optimization  for  the  conceptual  design  phase.  It  is,  thus,  limited 
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in  a  number  of  ways.  First,  as  already  stated  above,  active  control  design  is  not  part  of  it 
yet.  In  addition,  at  this  stage,  modeling  is  limited  to  general  aviation  airplanes,  and  thrust 
effects  are  not  included  in  the  dynamic  and  static  stability  and  control  evaluations.  The ' 
computer  capability  developed  requires  the  usage  of  a  particular  system  of  engineering 
units  (the  English  system,  following  SM84).  All  these  limitations  can  be  removed  easily 
at  a  later  stage. 

The  thesis  opens  with  a  sequence  of  chapters  describing  parameterization  of  the  airplane 
for  design  purposes  and  all  aspects  of  the  design-oriented  analysis.  Chapter  2  discusses 
design  parameterization  and  the  selection  of  pre-assigned  parameters  and  design 
variables.  Chapter  3  describes  weight  and  balance  estimation  by  component  build  up. 
Chapter  4  focuses  on  aerodynamics  for  mission  performance,  and  Chapter  5  describes 
mission  analysis  and  performance  evaluation.  Chapter  6  discusses  creation  of  important 
geometrical  entities  required  in  stability  derivatives  calculation.  It  is  followed  by  Chapter 
7,  which  lists  all  stability  derivatives  used,  and  the  equations  used  to  evaluate  them. 
Chapters  8  and  9  discuss  static  and  dynamic  stability  and  control  behavior,  respectively. 
Discussion  of  the  optimization  problem  formulation,  integration  of  analysis  and 
optimization  modules,  and  a  list  of  all  behavior  and  geometric  constraints  available  in  the 
new  capability  is  provided  in  Chapter  10.  Chapter  1 1  includes  analysis  results  from  the 
analysis  part  of  the  new  capability,  demonstrating  its  accuracy  and  reliability  when 
applied  to  real  airplane  configurations.  Chapter  12  presents  design  test  cases  and 
optimization  results  obtained  with  the  new  capability  and  a  discussion  of  the  importance 
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of  integration  of  static  and  dynamic  stability  and  control  requirements  into  the  conceptual 
design  optimization  of  airplanes.  Chapter  13  concludes  the  thesis  with  a  summary  of 
major  achievements  and  insights  gained,  and  recommendations  for  further  developments. 
A  comprehensive  bibliography  contains  all  sources  of  information  used  for  this  work. 
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2.  AIRCRAFT  DESIGN  PARAMETERIZATION 

The  set  of  parameters  defining  any  given  design  can  be  divided  into  pre-assigned 
parameters  (PPs),  those  parameters  which  are  pre-determined  and  do  not  change  during 
the  design,  and  design  variables  (DVs),  those  parameters  that  are  varied  by  the 
optimization  process.  The  following  chapter  describes  the  design  variables  and  the  pre¬ 
assigned  parameters  used  to  define  an  airplane  in  this  work. 

2.1  Design  Variables 

The  airplane  configuration  design  is  defined  by  thirty  design  variables,  which  are  listed  in 
Table  2.1.1.  These  variables  cover  the  aircraft  geometric  features  (including  wing, 
fuselage,  tail  surfaces,  control  surfaces,  landing  gear  and  location  of  major  systems), 
engine,  and  weight.  The  notation  used  in  this  table  is  consistent  with  the  actual  MATLAB  ■ 
variables  and  coincides  with  the  layout  of  the  actual  input  file.  Refer  to  Figure  2. 1  for  a 
graphical  definition  of  each  of  the  geometric  design  variables. 


TABLE  2.1.1:  Design  Variables 


NAME 

B 

CROOT 

TR _ 

DM 

Xlewing 

BT _ 

Crtail 


Xletail 

BY 

Crvt 

TRvt 

Xlevt 

BA 

CA 

YI 


BFlap 

CFlap 

BE 

CHE 

BR 

CR _ 

LB _ 

Lm 

CGmgr 

Ln 

CGngr 

Pmax 

Wguess 

XM 


DESCRIPTION  _ 

Wing  span  (ft) _ 

Wing  root  chord  (ft) _ _ 

Wing  taper  ratio  _ 

Dihedral  angle  (deg)  (+  for  dihedral,  -  for  anhedral) _ 

Distance  of  the  l.e.  of  the  wing  from  the  nose  (ft) _ 

Horizontal  tail  span  (ft) _ 

Horizontal  tail  root  chord  (ft) _ 

Horizontal  tail  taper  ratio _ 

Distance  of  the  l.e.  of  the  horiz.  tail  from  the  nose  (ft) _ 

Vertical  tail  span  (ft) _ 

Vertical  tail  root  chord  (ft) _ 

Vertical  tail  taper  ratio _ 

Distance  of  the  l.e.  of  the  vert,  tail  from  the  nose  (ft)  _ 

Aileron  span  (ft) _ 

Aileron  chord  (ft) _ _ ' 

Distance  from  the  body  centerline  to  the  inboard  edge  of  the 
aileron _ 

Flap  span  (ft)  _ 

Flap  chord  (ft) _ 

Elevator  span  (ft)  _ 

Elevator  chord  (ft)  _ 

Rudder  span  (ft) _ _ 

Rudder  chord  (ft)  _ 

Fuselage  length  (ft)  _ 

Length  of  main  landing  gear  (in) _ _ 

x-position  of  the  main  landing  gear  e  g.  (ft) _ 

Length  of  nose  gear  (in) _ 

x-position  of  the  nose  gear  c.g.  (ft) _ 

Maximum  power  at  sea  level  (hp) _ 

Initial  guess  of  aircraft  weight  for  sizing  (lb) _ 

Distance  of  c.g  from  the  nose  (ft) 
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Figure  2.1.  Definition  of  Design  Variables 


2.2  Preassigned  Parameters 

Apart  from  the  design  variables,  there  are  eighty-eight  permanent  parameters  that  must  be 
defined.  The  list  of  these  parameters  may  be  found  in  Table  2.2. 1  under  the  same 
notation  used  for  the  actual  MA  TLAB  variables.  •  These  pre-assigned  parameters  cover 
five  major  areas  of  interest  including  overall  aircraft  geometry  /  configuration, 
aerodynamics,  power,  crew  and  payload,  and  weight  estimation.  The  pre-assigned 
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parameters  are  defined  once  at  the  beginning  of  an  optimization  run  and  are  then  held 
fixed  throughout  the  optimization  process. 


TABLE  2  21:  PREASSIGNED  PARAMETERS 


NAME 

DESCRIPTION 

Lo 

Fuselage  length  (ft) 

Ho 

Max  body  height  at  wing-body  intersection  (ft) 

Hlo 

Fuselage  height  1/4  the  fuselage  length  from  nose  (ft) 

H2o 

Fuselage  height  3/4  the  fuselage  length  from  nose  (ft) 

HBCYo 

Fuselage  height  at  back  of  canopy  (ft) 

HFCYo 

Fuselage  height  at  front  of  canopy  (ft) 

Hgearo 

Fuselage  height  at  location  of  main  landing  gear  (ft) 

HNOSEo 

Fuselage  height  at  the  nose  region  (ft) 

LBCYo 

Length  from  nose  to  back  of  canopy  (ft) 

LFCYo 

Length  from  nose  to  front  of  canopy  (ft) 

LMHo 

Length  from  nose  to  point  of  max  fuselage  height  (ft) 

Rio 

Radius  of  fuselage  in  vicinity  of  vertical  tail  (ft) 

WFUSo 

Maximum  fuselage  width  (ft) 

WBCYo 

Fuselage  width  at  back  of  canopy  (ft) 

WFCYo 

Fuselage  width  at  front  of  canopy  (ft) 

WNOSEo 

Fuselage  width  in  the  nose  region  (ft) 

CGaco 

x-Position  of  the  air  conditioning  and  anti-ice  system  c.g.  (ft) 

CGaviono 

x-Position  of  the  avioncis  system  c.g.  (ft) 

CGctrlo 

x-Position  of  the  flight  control  system  c.g.  (ft) 

CGeleco 

x-Position  of  the  electrical  system  c.g.  (ft) 

CGengo 

x-Position  of  the  engine  c.g.  (ft) 

CGfuelo 

x-Position  of  the  fuel  system  c.g.  (ft) 

CGfurno 

x-Position  of  the  furnishings  c.g.  (ft) 

CGhydro 

x-Position  of  the  hydraulics  system  c.g.  (ft) 

slender 

Fuselage  slenderness  ratio 

Option 

=1  uses  given  values;=2  scales  to  length;  =3  scales  to  width 

SA 

Sweep  angle  (deg)  (+  for  sweep  aft) 

IWING 

Incidence  angle  of  the  wing  at  the  root  chord  (deg)  (+  for  upward 
incidence) 

toverc 

Airfoil  thickness  to  chord  ratio 

SAH 

Horizontal  tail  sweep  angle  (deg)  (+  for  sweep  aft) 
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TABLE  2.2.1:  PREASSIGNED  PARAMETERS  ('continued') 


IT  AIL 

Incidence  angle  of  the  horizontal  tail  at  the  root  chord  (deg)  (+  for  1 
upward  incidence) 

SAvt 

Sweep  angle  of  the  vertical  tail  at  25%  MAC  (deg)  (+  for  sweep 
aft) 

engineDref 

Reference  engine  diameter  (in) 

engineLref 

Reference  engine  length  (in) 

CDO 

Parasite  drag  | 

CF 

Aero  cleaness  coefficient  (calculated  using  Swet  if  =  0) 

CDA2DW 

2D  drag  curve  slope  of  wing  ( 1/rad) 

cDFlapRatio 

Drag  accounting  for  flaps  at  takeoff 

CDLGratio 

cD  adjustment  for  landing  gear 

cFriction 

Skin  friction  drag  coefficient 

CLA2DT 

2D  lift  curve  slope  of  the  horiz.  tail  (1/rad)  j 

CLA2DW 

2D  lift  curve  slope  of  the  wing  (1/rad) 

CLAFUS 

Lift  curve  slope  of  fuselage  (1/rad) 

cLmax 

Maximum  lift  coefficient  1 

cLmaxClean 

Maximum  clean  lift  coefficient 

EnginDragFactor 

Drag  accounting  for  engine  installation 

EFF 

Horizontal  tail  efficiency  factor 

ETAV 

Vertical  tail  efficiency  factor 

groundefFect 

Ground  effect  factor 

LDmax 

Maximum  lift-to-drag  ratio 

Oswald 

Oswald's  coefficient 

AnPower 

Dependency  of  power  on  altitude 

enginePowerref 

Reference  engine  power  (hp) 

Nen 

Number  of  engines 

Wen 

Weight  of  each  engine  (lb) 

Dprop 

Propeller  Diameter  (inches) 

Npassengers 

Number  of  passengers 

Ncrew 

Number  of  crew  members 

Wppass 

Weight  per  passenger  w/  baggage  (lb) 

Wpcrew 

Weight  per  crewman  w /  equipment  (lb)  j 

Wpayload 

Weight  of  payload  (lb)  j 

Growth 

Growth  factor  for  larger  payloads 

Wuav 

Uninstalled  avionics  weight  (typically  =  800-1400  lbs) 

RoskamA 

Roskam  coefficient  for  Wempty 

RoskamB 

Roskam  coefficient  for  Wempty 

RaymerA 

Raymer  coefficient  for  Wempty 
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TABLE  2.2.1:  PREASSIGNED  PARAMETERS  (continued! 


RaymerC 

Raymer  coefficient  for  Wempty  ■ 

HtHv 

0.0  for  conventional  tail  &  1.0  for  "T"  tail 

N1 

Ultimate  landing  load  factor;  -  Ngear*1.5 

Nstrut 

Number  of  main  landing  gear  struts 

Fueldens 

Fuel  density  (lb/gal) 

Nt 

Number  of  fuel  tanks 

Nz 

Ultimate  load  factor;  =  1.5  *  limit  load  factor 

Pdelta 

Cabin  pressure  differential;  typically  8  psi  (lb/inA2) 

Vpr 

Volume  of  pressurized  section  (ftA3) 

W1 

Landing  design  gross  weight  (lb) 

eps 

Tolerance  for  weight  mismatch 

ZA 

Vertical  distance  from  the  c.g.  to  the  wing  a.c.  (ft) 

ZT 

Perpendicular  distance  from  the  c.g.  to  the  thrust  line  (ft) 

ZV 

Distance  from  the  c.p.  of  the  vertical  tail  to  the  airplane's  x-axis 

(ft) 

ZW 

Distance  from  body  centerline  to  quarter-chord  point  of  exposed 
wing  root  chord  (ft) 

ALPHA 

Angle  of  attack  (deg) 

GAMMA 

Flight  path  angle  (deg) 

COSXZ 

Cosine  of  the  angle  between  the  thrust  axis  and  the  wind  axis 

SINXZ 

Sine  of  the  angle  between  the  thrust  axis  and  the  wind  axis 

UpperMach 

Upper  Mach  limit 

WindMax 

Max  wind  speed  at  altitude  (ft/s) 

GRAVIT 

Gravitational  acceleration  (ft/sA2) 

Not  all  design  variables  have  to  be  used  in  a  particular  run.  The  capability  described  here 
allows  for  assigning  a  constant  value  for  any  design  variable  by  adding  it  to  the  list  of 
pre-assigned  parameters. 
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2.3  Geometric  Calculations 

As  can  be  noticed  in  an  examination  of  Tables  2.1.1  and  2.2.1,  two  important  parameters 
(area  and  aspect  ratio),  which  are  generally  used  to  specify  geometry  characteristics  of 
airplanes,  are  not  included  in  the  lists.  Areas  of  wing  and  control  surfaces  are  determined 
by  the  respective  root  chord,  cr,  taper  ratio,  A,  and  span,  b.  The  corresponding  aspect 
ratios  are  determined  by  the  span,  b,  and  projected  area.  Once  values  are  assigned  to  a 
complete  set  of  DVs  and  PPs  in  the  course  of  optimization,  the  wing  area  and  aspect  ratio 
are  then  calculated  from 


(2-1) 


The  control  surfaces  are  assumed  to  be  rectangular  in  the  present  capability.  Control 
surface  areas  are  simply  the  span  multiplied  by  the  chord.  Aspect  ratio  of  the  lifting 
surfaces  is  given  by: 


(2-2) 
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3.  AIRCRAFT  WEIGHT  ANALYSIS 


The  weight  analysis  section  estimates  the  total  gross  weight,  the  center  of  gravity 
location,  and  the  moments  of  inertia  of  the  aircraft.  The  methods  used  are  based  on 
statistical  weight  equations  for  components  (given  here  for  general-aviation  aircraft, 
RA92,R0285). 


3.1  Fuel  Weight  in  Wing  Tanks 

An  important  feature  of  any  design  is  the  ability  to  carry  the  necessary  amount  of  fuel. 
The  volume  available  from  wing  integral  fuel  tanks  is  determined  by  (T082): 


'l  +  A  +  A2} 

Vc>  [ 

,  O+'O2  j 

(3-1) 


The  fuel  weight  is  then  found  by  multiplying  the  result  by  the  appropriate  fuel  density. 


3.2  Component  Weight  Breakdown 

The  component  weight  breakdown  estimates  the  total  weight  using  statistical  equations 
related  to  each  of  the  aircraft  components.  The  equations  and  notation  used  here  are  from  ■ 
(RA92). 

Wing  weight 


JF,„„  =  0.0365  075 V  0003S 


wing 


'  fw 


AR 
cos2  A 


,0.6 


0.006  .,0.004 

qD  A. 


100  t/c 
cos  A 


-0.3 


(3-2) 
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Horizontal  tail  weight 


Wt 


horizontal 

tail 


0.016  {N,wJM,q0’mSt°m 


f  100  t/c') 

-0.12 

\  AR  ] 

0.043 

I 

cosA  ) 

lcos2AwJ 

(3-3) 


Vertical  tail  weight 


0.073 

tail 


f  H  A 

1  +  0.2 — - 

V  HvJ 


( ~\r  rir  \o.376  0.122  (t  0.873 

\n,wj»)  c1d  svl 


rmt/c ^ 

KcosAvtJ 


-0.49 


/  \  0.357 

f  AR  ' 


vcos2  Avt  j 


X. 


0.039 


Fuselage  weight 


(3-4) 


=0.052, S;m(N,wJ™L, 


•0.051 


f  j  V°°72 
KW»J 


0.241  ,  rrr 


press 


where  the  weight  penalty  due  to  pressurization  is: 

w  =ii9+(j y  p  V 

"press  1  1  ~  V  prJdclta  J 


(3 -5a) 


(3 -5b) 


Main  landing  gear  weight 


Kain.,^  =0-095(N!Wl)0J6S 


f  L  ^  0,409 


gear 


V  12  y 


(3-6) 
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Nose  landing  gear  weight 


W 

nose-landing 


gear 


(3-7) 


Total  installed  engine  weight 

installed -engine  =  2.575 Wen0922Nen  (3-8) 

( [total ) 


Fuel  system  weight 

This  equation  does  not  include  the  actual  fuel  weight. 


v  0.363 


W  =2  49V0  726 

ry  Juelsystem  , 


,1 +VJV, 


w“iV 

1  v  t  1  v  en 


(3-9) 


Flight  controls  weight 


WMhl  =0.053 LBL536  b037l(N,Wds  xlO-4)080  (3-10) 

controls 


Hydraulics  system  weight 


^ ' hydraulics  =  0.0010^ 


(3-11) 
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Avionics  system  weight 

=  (3-12) 

Electrical  system  weight 

=12.57(1 (3-13) 


Air  conditioning  and  anti-ice  system  weight 

K,r,on^ns  =  0-265Wjg52N  p'6%W^nicsM0M  (3-14) 

and-anti'ice 


Furnishings  weight 


W, 


furnishings 


0.0582^-65 


(3-15) 


3.3  Center  of  Gravity  and  Moments  of  Inertia 

The  center  of  gravity  location  is  determined  using  the  weight  and  x-coordinate  position  of 
each  aircraft  component.  The  equation  used  is: 


X. 


I.*. 


w 

C  ■ G component  component 


C.G, 


alrcrqft 


2X 


component 


(3-16) 


The  aircraft  moments  of  inertia  must  be  known  in  order  to  perform  the  dynamic  stability 
analysis.  Using  statistical  equations  these  moments  of  inertia  are  determined  as  a 
function  of  the  aircraft  nondimensional  radii  of  gyration  (R085).  They  are  given  by 
(RA92)  as: 
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b2W  R  2 

J  _  U  n  total  1Xx 

1 XX  A 

4  g 

(3-17) 

r  _  LB2WtotalR2y 
”  4  g 

(3-18) 

V  J  4  g 

(3-19) 

where  the  radii  of  gyration  are  obtained  from  statistical  data  for  similar  airplanes.  At  the 
same  time,  using  the  location  x-coordinates  and  weights  of  all  components,  the  moments 
of  inertia  can  be  calculated  directly  by  summation  of  component  contributions.  The  two 
estimates  can  be  compared.  Any  one  of  them  or  their  average  values  can  be  used  to 
evaluate  dynamic  stability  and  control  characteristics. 
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4.  AERODYNAMICS  FOR  MISSION  PERFORMANCE 


The  aerodynamic  characteristics  of  each  flight  mission  phase  must  be  determined 
appropriately.  The  following  chapter  focuses  on  the  assumptions  and  calculations  made 
in  developing  the  lift  and  drag  coefficients  to  be  used  in  the  performance  equations  for 
mission  analysis. 


4.1  Takeoff 

Under  the  assumption  (RA92)  that  Utakeoff  -  1.2 U5tall  the  lift  coefficient  at  take-off  is: 


C 


^takeoff 


(4-1) 


The  drag  coefficient  at  takeoff  is  modified  from  the  standard  drag  polar  calculation  by 
adding  ground  effect  at  takeoff  and  effects  of  the  extension  of  the  landing  gear  and  flaps. 
This  becomes  (T082): 


Cr 


^ takeoff 


=  cn  + 


Cl 


' takeoff 


A  Cr 


tvARS 


&  effect  ' 


A  Cr 


-Co,  +- 


ACr 


JPlap 


AC 


C 


Do 


Do 


(4-2) 


4.2  Climb 

For  the  climb  of  a  propeller  driven  airplane,  (RA92)  defines  the  optimum  lift  coefficient 
to  be 


cw  =  -j3mARCn 


(4-3) 
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The  drag  coefficient  is  found  using  the  standard 'method  for  drag  polar  calculation: 


Cr 


c2 

A +  c‘ 


imAR 


(4-4) 


4.3  Cruise 

At  cruise,  (T082)  defines  the  optimum  lift  coefficient  to  be 


C  W  =  Ch^  4™ARCd  (4-5) 

The  term  is  added  to  allow  for  a  more  conservative  estimate  of  the  actual  lift 

coefficient  encountered  at  altitude.  The  drag  coefficient  is  calculated  using  Equation  4-4. 


4.4  Loiter 

The  lift  and  drag  coefficients  for  loiter  are  calculated  in  the  same  manner  as  those  for  the 
climb  leg. 


4.5  Landing 

Under  the  assumption  presented  by  (RA92)  that  Ulandj  =  1 2\U  stall  the  lift  coefficient  is: 


C 


^landing 


(4-6) 


The  performance  calculations  also  require  an  estimation  of  the  lift  coefficient  on  the 
runway,  which  is  assumed  to  be  roughly  80%  of  the  landing  lift  coefficient.  The  drag 
coefficient  is  determined  by  Equation  4-2. 
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5.  MISSION  PERFORMANCE 


This  chapter  outlines  the  analysis  conducted  in  determining  the  mission  performance  of 
the  aircraft.  Of  primary  concern  are  issues  of  range,  loiter,  landing  and  takeoff  distances, 
rate  of  climb,  power,  and  mission  fuel  burn. 


5.1  Power  available  versus  power  required 

With  the  exception  of  landing,  each  mission  leg  calculates  the  power  available  and  the 
power  required.  This  information  is  used  in  the  set  of  constraints  to  guarantee  that  the 
airplane  has  enough  power  at  all  mission  segments.  This  is  primarily  a  function  of  the 
max  power  of  the  engine(s)  and  the  altitude: 

f  \Ar 


P  =  P 

available  max 


P 

V  PsL  J 


rj  ■ throttle 


(5-1) 


where  Ap  is  used  to  model  the  variation  of  engine  power  with  flight  altitude,  and 
"throttle"  is  used  to  limit  the  throttle  allowed  for  each  mission  segment.  The  power 
required  is  simply  drag  times  velocity.  These  parameters  are  determined  by  using  the 
appropriate  lift  or  drag  coefficient  for  the  mission  leg  in  question  (assuming  one-g  flight): 


(5-2) 


Drag  =  0.5  pU2SCD 


(5-3) 
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5.2  Rate  of  climb 

The  rate  of  climb  is  calculated  for  the  takeoff,  climb,  and  cruise  mission  legs.  It  is 
strongly  dependent  on  the  excess  power.  The  equation  implemented  is  for  the  optimum 
rate  of  climb  (RA92)  and  is  given  as: 


PP)P  ^available  pU*CDo  2  (JV/S) 

W  2  (w/s)  mARp  P 

The  climb  leg  actually  implements  an  alternate  form  of  the  equation  determining  the  rate 
of  climb. 


dh 

dt 


available 


required  > 


W 


(5-5) 


5.3  Balanced  field  length 

The  balanced  field  length  is  the  total  takeoff  distance  including  obstacle  clearance  that  is 
needed  to  allow  the  aircraft  to  brake  to  a  halt  or  takeoff  in  the  event  of  an  engine  failure 
(RA92).  The  equation  used  for  this  calculation  is  (T082): 


BFL  =  0.863 


W/S 
PgCi 


■  +  h 


obstacle 


'tvkejojf 


+  2.7 


^  /W 


-U, 


+ 


f  655  ^ 

.4(pIpsl). 


(5-6a) 


where  the  average  thrust  is  calculated 


T  =  5.75  P 


flv  *  available 


[pjpdKP 

P 

available 
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prop 


(5 -6b) 


and 
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Ur=  O.OIC^  +0.02 


(5-6c) 


5.4  Landing  distance 

The  landing  distance  is  calculated  based  on  a  method  presented  in  (T082),  which 
approximates  the  touchdown  speed  based  on  an  estimated  landing  flare.  The  total 
equation  is  presented  as: 


^  land 


-  +  1.69 
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°/g 
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lland 


(5-7a) 


where  the  average  deceleration  is  calculated  from  the  drag  and  the  friction  force  between 
the  aircraft  and  the  runway 

.  _  \prag  +  (JV  -  Lifi)iinmway  ] 


a  = 


W 


-g 


(5 -7b) 


5.5  Mission  fuel  burn 

The  mission  fuel  burn  acts  as  the  main  iterative  variable  when  it  comes  to  determining 
the  actual  weight  of  an  aircraft  design.  The  methods  used  for  each  leg  follow  in  terms  of 
the  final  weight  versus  the  initial  weight. 

Takeoff 


Wfinal  =  0.91Wmitial 


(5-8) 


(RA92) 
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Climb 

Two  options  exist  in  calculating  fuel  burn  for  the  climb  segment.  The  first  is  statistical: 

^=0.985^,„,  (RA92)  (5-9) 

The  second  is  performance  based: 

W fmai  =  initial  (^mailable  BSFC)dl  (5- 10a) 

where 


dt  = 


Ah 

dh/dt 


(5- 10b) 


Cruise 


W final  =  initial  eXp 


-  Range  ■  BSFC 
5507,(I/Z))„ 


Loiter 


W final  =  W filial  eXp 


-  Endurance  •  U  ■  BSFC 

550 r,MD)m 


(RA92)  (5-11) 


(RA92)  (5-12) 


Landing 


W final  -  0-995 Wmial  (RA92)  (5-13) 

When  the  mission  analysis  concludes  (starting  with  a  guess  of  the  gross  take-off  weight 
and  ending  with  the  final  weight  for  the  mission,  RA92,  R085),  the  fuel  weight  used  is 
found  as: 


W  -W  -W 

fuelburn  rr  guess  rr  final 


(5-14) 
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5.6  Mission  weight  analysis 

Aside  from  the  component-by-component  weight  analysis  of  Chapter  3,  another  weight 
analysis  occurs  within  the  mission  analysis  based  on  statistical  equations  for  the  ratio  of 
the  overall  empty  weight  to  the  take-off  gross  weight  of  the  airplane.  This  calculates  the 
empty  weight  from  the  mission  analysis  as: 


W  =W 

fT  rtnlnh)  r'  r 


empty 


guess 


W 


final 


■W 


■W  -W 

passengers  payload 


(5-15) 


This  empty  weight  is  compared  to  the  empty  weight  calculated  using  the  average  of  two 
alternate  methods: 


and 


W. 


empty 1 


In  Wguess  -  RoskamA 
RoskamB 


(R085)  (5-16) 


W,mw=W^,RaymerA-W^rC  (RA92)  (5-17) 

In  conventional  sizing  of  an  airplane  during  conceptual  design  the  weight  is  arrived  at  by 
an  iterative  process  in  which  a  guess  of  the  take-off  gross  weight  is  improved  iteratively 
(RA92)  or  by  solving  directly  for  the  take-off  gross  weight  (R085).  A  weight  guess  is 
used  to  start  a  mission  analysis  in  which  weight  is  reduced  (due  to  fuel  burn)  as  the 
airplane  progresses  through  the  mission.  When  the  end  weight  is  obtained,  a  new  estimate 
of  the  take-off  weight  can  be  calculated.  In  the  present  capability,  as  will  be  described 
later,  the  matching  of  the  weight  estimate  at  the  end  of  a  mission  run  and  the  input  guess 
weight  which  starts  the  mission  analysis  is  done  by  imposing  an  equality  constraint  and 


counting  on  the  optimization  algorithm  used  to  meet  this  constraint. 
The  gross  weight  at  the  end  of  a  mission  is  calculated  from: 
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(RA92) 


(5-18) 


5.7  Mission  segments 

The  mission  is  defined  to  match  desired  mission  requirements  such  as  takeoff  distance, 
rate  of  climb,  range  and  endurance:  These  parameters  are  presented  below. 


TABLE  5,7,1:  Mission  segments  and  their  defining  variables 


NAME 


DESCRIPTION 


altitude 

Dist  _ 

BSFC  (lb/hr/hp) 
Np 

Speed _ 

throttle _ 

Runway(TO/LD) 

ROC _ 

cLfraction _ 

cLratio _ 

gammabar _ 

deltaN _ 

groundfriction 

Hobstacle 


Altitude  or  change  in  altitude  (ft) 

Distance  or  endurance  (miles  or  minutes) 
Brake  specific  fuel  consumption  (lb/hr/hp) 

Propeller  efficiency _ _ 

Actual  airspeed  or  required  airspeed  (ft/s) 

Throttle  setting  _ 

Takeoff  or  landing  runway  length  (ft) 

Required  rate  of  climb  (ft/min)  _ 

Lift  coefficient  correction  factor _ 

Lift  coefficient  correction  factor _ 

Used  for  Torenbeek  approximation _ 

Used  for  Torenbeek  approximation _ 

Ground  friction  coefficient _ 

Obstacle  height  at  takeoff  or  landing  Iff) 
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6.  GEOMETRY  FOR  STABILITY  AND  CONTROL 
AERODYNAMICS 

Definition  of  geometric  pre-assigned  parameters  and  variations  of  the  geometric  design 
variables  describing  a  configuration  lead  to  variations  in  the  aerodynamic  characteristics 
affecting  stability  and  control.  The  present  chapter  lists  a  number  of  geometric  variables 
and  their  uses  in  static  and  dynamic  stability  and  control  analysis. 


6.1  Mean  Aerodynamic  Chord 

The  mean  aerodynamic  chord  is  used  for  all  calculations  pertaining  to  pitching  moment 
coefficients  in  longitudinal  stability  derivatives.  For  a  trapezoidal  wing  planform  (SM84, 
T082)  the  mean  aerodynamic  chord  is: 


2  (l  +  l  +  T2) 

3  °r  (1  +  2) 


(6-1) 


6.2  Wetted  Area 

The  wetted  area  of  the  aircraft  is  required  for  two  reasons:  1.)  It  allows  the  parasite  drag 
coefficient  to  be  estimated  (based  on  equivalent  flat  plate  friction  coefficients  for 
comparable  configurations)  for  each  new  design  encountered  during  optimization.  Thus, 
relative  size  changes  of  wing  and  overall  size  of  the  vehicle  can  affect  the  zero-lift  drag  ' 
coefficient  Cdc>;  2.)  Weights  in  the  weight  analysis  presented  in  Chapter  1  are  dependent 
on  the  fuselage's  wetted  area. 
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The  approximation  presented  in  (RA92)  divides  the  aircraft  into  four  sections:  fuselage, 
wing,  horizontal  tail,  and  vertical  tail.  The  fuselage's  wetted  area  is  determined  by: 


Sf  =  3.4] 


4 0p  + 


(6-2a) 


V  *  J 

where  the  fuselage  width  and  height  are  taken  as  an  average  of  known  values  such  that: 


A  _  Wmsc  +  W fey  +  Wbcy  +  W 'fas  T 
‘op  ^  LB 


A  _  Kose  +  11  fey  +  Key  T 
Asidc  ~  ~  LB 

The  wetted  area  of  the  wing  is  calculated  as: 

=  S ex  posed  (l  -971  +  0.52(//c)) 

where: 


^  exposed  ^  ^  root^ fus 


(6-2b) 

(6-2c) 


(6-3  a) 


(6-3b) 


The  wetted  area  of  the  horizontal  tail  and  vertical  tail  is  taken  to  be  twice  the  projected 
planform  area  of  the  respective  surfaces.  The  thickness  of  these  surfaces  is  assumed  very 
small. 


6.3  Parasite  Drag  Coefficient 

The  parasite  drag  coefficient  is  determined  using  the  flat  plate  equivalent  skin  friction 
coefficient  and  wetted  area  as  outlined  in  (C085,PH49).  The  relationship  is  given  by 


CF 


(6-4) 
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where  S  is  the  projected  area  of  the  wing  used  to  non-dimensionalize  all  aerodynamic 
force  and  moment  coefficients. 


6.4  Induced  angle  of  attack 

The  induced  angle  of  attack  due  to  lift  on  the  wing  contributes  to  the  effective  wing  angle 
of  attack.  This  same  effect  occurs  at  the  horizontal  tail.  Taken  from  (DSC67),  these 
effects  are  determined  by 


a,  = 


Cr 


(6-5) 


mxAR 

This  equation  introduces  the  induced-angle  span  efficiency  factor,  which  is  calculated  as 


1 

e,  = - 

1  +  r 

where  the  correction  factor,  x,  depends  on  the  taper  ratio  and  the  aspect  ratio. 
For  the  case  of  taper  ratio  X  =  1 , 


(6-6a) 


x  =  0.00002971 15/1/?4  -0.00081 1747^i?3  +  0.007 171 7/1R2  -0.00298853/1R 
+  0.07739 


(6-6b) 


For  those  cases  where  X  +  1 ,  the  following  equation  holds  only  for  aspect  ratio  values 
around  6.28. 

r  =  6526. 0T13  - 33936. 5/L12  +  65708. 3A"  - 40275. 9A’°  - 55022. SX9  + 134075. 0XS 
-128452. 0/l7  +71152. 4X6  -24169.6T5  +4910.63T4  -541.19T3  +27.1966T2  (6-6c) 

-1.31155/1  +  0.170212 
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6.5  Oswald  Coefficient 

Within  the  mission  performance  module  the  Oswald  coefficient  is  set  by  the  user.  In  this  . 
case,  a  correction  factor  has  been  added  to  account  for  non-elliptic  lift  distributions  on  the 
wing  planform  (PH49).  This  corrected  coefficient  is  calculated  as: 


1 

T+7 


(6-7a) 


where  the  correction  factor,  8,  depends  on  the  taper  ratio  and  the  aspect  ratio. 

For  the  case  of  taper  ratio  ft  =  1 , 

8  =  -0.0000143 113 AR3  +  0.0000158924 AR2  +  0.01 13969ftLR  -  0.01 1339  (6-7b) 

For  those  cases  where  ft  ^  1 ,  the  following  equation  is  valid  for  aspect  ratio  values 
around  6.0. 


J  =  2.48637ft6  -9.29906ft5  +  14.0692ft4  -11.1199ft3  +  5.01493ft2  -1.24262ft 
+  0.141122 


6.6  Downwash  on  the  Tail 

The  angle  of  attack  of  the  horizontal  tail  is  determined  by  the  wing's  angle  of  attack,  the 
wing's  incidence  angle,  the  tail's  incidence  angle,  and  the  downwash  on  the  tail  due  to  the 
wing.  The  change  in  tail  downwash  with  respect  to  the  wing  angle  of  attack  is  given  as 
(DSC67): 


29 


ds 

da 


=  20  C, 

L-'a 


(MX)"  (iX 


AR 


0.725 


\lt  J 


(6-8) 


6.7  Effective  aspect  ratio  of  the  vertical  tail 

The  effective  aspect  ratio  of  the  vertical  tail  is  needed  to  calculate  the  respective  3-D  lift 
curve  slope.  This  is  often  greater  than  the  geometric  aspect  ratio  for  vertical  tails 
mounted  above  the  horizontal  tail  and  is  found  to  be  (PH49): 


AR 


offyat 


(6-9) 


AReff„ri  is  limited  to  values  equal  to  or  less  than  6.5  for  the  purpose  of  this  analysis 
(SM84). 


6.8  Body  Reference  Area 

The  reference  body  area  is  used  to  determine  fuselage  effects  on  lateral-directional 
stability.  This  is  calculated  as  a  function  of  the  fuselage  volume 

Aodyrcf  =  Vjll  (6-10) 

The  fuselage  volume  is  estimated  using  the  volume  of  four  prismoids  derived  from  the 
fuselage  geometry  (SM84).  These  relationships  are': 

(K+V2+V1+Vt)  (6-1  la) 

V<  =  -'A.-.H',,.]  (6-1  lb) 
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v2  =  {lmh-lfv\l{hfcywfcy  +hwfils)+hwfcy  +  hfcywfus] 

V2  =  (lbcy  +hwfils)+hwbcy  +W/ushbcy] 

K  =  (4  -  hey  l2{hbcyWbcy  +  ^)+  2^/,  +  2^/*,  ] 

6.9  Side  Body  Area 

Introducing  the  side  body  area  is  one  method  of  adding  a  wing-fuselage  correction  in  the 
determination  of  static  directional  stability.  This  area  is  estimated  using  the  following 
relationship  from  (SM84): 


(6-1 lc) 
(6-1  Id) 
(6-1 le) 


(6-12) 


7.  AERODYNAMIC  STABILITY  AND  CONTROL  DERIVATIVES 


This  chapter  presents  the  analysis  methods  used  for  determining  all  stability  and  control 
derivatives,  non-dimensional  and  dimensional.  Longitudinal  derivatives  are  presented 
first  followed  by  lateral-directional  derivatives. 

7.1  Non-dimensional  longitudinal  stability  derivatives 

The  following  derivatives  apply  to  translational  motion  along  the  x-body-axis  and 
rotational  motion  in  pitch  about  the  y-body-axis.  Unless  otherwise  noted,  these 
calculations  based  on  (SM84)  which,  in  turn,  is  a  compilation  of  approximate  equations 
based  on  (PH49)  and  the  NACA  reports  listed  in  the  bibliography  section.  As  indicated 
by  the  title  of  this  section,  all  rate  derivatives  (rate  of  change  of  angle  of  attack  and  pitch 
rate)  are  dimensionless. 


7.1.1  Aircraft  lift  coefficient 

The  total  aircraft  lift  coefficient  is  calculated  using  the  standard  relationship 

W 

CL=  — 
qDS 

Dividing  the  lift  coefficient  into  wing  and  horizontal  tail  contributions  yields, 


(7-la) 


where  the  wing  contribution  is  determined  as: 


r 

Q  — 

L'**  ,  xS 

1  +  -2- 

1,S, 


(7-lc) 


7, 


And  the  contribution  due  to  the  horizontal  tail  is  calculated  by 


CL  = 


CL  x.S 
_ 

iM 


(7- Id) 


7.1.2  Aircraft  drag  coefficient 

The  total  aircraft  drag  coefficient  is  calculated  using  the  standard  drag  polar  equation 


-  CDn  + 


C,2 


rceAR 


(7-2) 


7.1.3  Pitching  moment  coeflicient 

In  equilibrium  flight,  the  pitching  moment  coefficient  is  zero  unless  the  thrust  line  is 
some  distance  zj  from  the  center  of  gravity.  In  this  case  the  aerodynamic  moment  has  to 
balance  the  moment  due  to  thrust  about  the  center  of  gravity.  Assuming  the  thrust  equals 
the  drag  in  unaccelerated  flight,  the  moment  coefficient  becomes 
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7.1.4  Thrust  coefficient 

Though  not  explicitly  utilized  in  the  present  power-off  stability  analysis,  the  thrust 
coefficient  is  calculated  as 


Thrust 

qS 


(7-4) 


7.1.5  Change  in  lift  coefficient  with  angle  of  attack 

Though  it  is  possible  to  separate  the  wing  and  horizontal  tail  contributions  to  this  stability 
derivative,  only  the  wing  contribution  is  used  in  this  analysis,  assuming  a  conventional 
design  with  the  wing  as  the  major  lift  generating  element.  The  lift-curve-slope,  as  this 
derivative  is  often  called,  is  given  as 

C. 

CLa=~ - (7-5) 

1  +  57.3 — k_ 

jze^AR 

(Note  the  dependency  on  units  selected  here.  The  lift  curve  slope  is  in  1/degree) 

The  tail  contribution  is  calculated  for  its  role  in  the  determination  of  C„,  .  The 

corresponding  relationship  follows  logically  as:  i 


C,  =■ 


c, 


1  +  57.3- 


C, 


ne ,  AR, 


(7-6) 
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7.1.6  Change  in  drag  coefficient  with  angle  of  attack 

The  wing,  fuselage,  and  tail  section  all  contribute  to  CDa .  However,  assuming  small 

perturbations,  the  effects  due  to  the  fuselage  and  the  tail  are  ignored.  This  derivative  is 
calculated  by 


2  C 

CD  =Cd  +—^CL 
D°  "  neAR  K 


(7-7) 


7.1.7  Change  in  pitching  moment  coefficient  with  angle  of  attack 

The  contributions  of  the  wing,  horizontal  tail,  and  fuselage  are  included  in  the  calculation 
of  C„,a .  This  equation,  written  as  the  sum  of  its  components,  is: 


C„,  =Cm  +  C„,  +C 


a  fuselage 


(7-8a) 


where. 


Cm  =CL 

^  wing  La 


i  2Q  (  \  c 


Cr 


51  ZmAR v  mnsJ  C, 


-  + 


'a  J 


2Q  (a~K,ng)  CL 
,  Tzezfi?  57.3  CL  , 

\  J 
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C  =  -C 

^  m  ^  r 
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•S',/, 


(7-8b) 

(DSC67)  (7-8c) 


C„ 


Sc 


(GW41)  (7-8d) 
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The  kfitxm  is  an  empirical  factor  used  in  the  estimation  of  fuselage  and  nacelle  effect  on 
C„a .  This  factor  is  found  to  be  (PH49,  SM84) 


kf.  =  -19.65581 


-0.464064 


f  x  V 

2Jus 

\LB  J 


+  50.3465 


\LB  J 


-26.5479 


f  x  V 

X  Jus 

\Lb  J 


+  7.47299 


\LB  J 


(7-8e) 


7.1.8  Change  in  lift  coefficient  with  rate  of  change  of  angle  of  attack 

This  derivative  results  primarily  from  the  time  lag  effect  at  the  horizontal  tail  due  to 
downwash  from  the  wing  and  is  computed  as: 


a 


de_K_St_ 

da  c  S  Vt 


(7-9) 


7.1.9  Change  in  drag  coefficient  with  rate  of  change  of  angle  of  attack 

The  change  in  drag  coefficient  with  rate  of  change  of  angle  of  attack  is  negligible  for  the 
class  of  aircraft  with  which  this  research  is  concerned.  This  derivative  is  set  as  zero  for 
all  analysis. 


7.1.10  Change  in  pitching  moment  coefficient  with  rate  of  change  of  angle  of  attack 

This  derivative  represents  the  change  in  pitching  moment  coefficient  with  rate  of  change 
of  angle  of  attack.  (GS44)  presents  an  expression  for  this  derivative  in  the  form 
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w. 
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ds  l,  A, 
da  c  c  S 


(7-10) 
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7.1.11  Change  in  lift  coefficient  with  pitch  rate 

The  main  contribution  to  this  derivative  comes  from  the  horizontal  tail.  The  following 
equation  from  (DU63)  calculates  the  derivative  as: 


CL  =  2— CL  —r/ 

q  L<xtoii  g  11 


(7-11) 


7.1.12  Change  in  drag  coefficient  with  pitch  rate 

While  both  the  wing  and  fuselage  contribute  to  this  derivative,  their  magnitudes  are  very 
small  and  are  neglected.  This  derivative  is  set  as  zero  the  purpose  of  this  analysis. 


7.1.13  Change  in  pitching  moment  coefficient  with  pitch  rate 
This  derivative  is  sometimes  referred  to  as  the  “pitch  damping”  derivative.  The  wing 
contribution  is  small  compared  to  the  contribution  due  to  the  horizontal  tail.  The  fuselage 
contribution  is  even  more  negligible  and  is  always  omitted  for  light  aircraft.  The 
equation  for  this  derivative  is  given  as 


(7-12) 


7.1.14  Change  in  lift  coefficient  due  to  elevator  deflection 

This  derivative  quantifies  the  change  in  the  lift  coefficient  with  deflection  of  the  elevator. 
The  following  relationship  from  (HE68)  is  used  to  calculate  this  derivative. 
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r  ~r  Cl^‘  ^  S‘  ~ 

lse  hg  r*  ( ~.  \  o 


C,  {as)c  S 

‘“tail  '  °  /Cl 

The  new  terms  presented  in  equation  7-13a  are  calculated  using  data  presented  in 
(DSC67).  The  first  term,  C,  ,  is  determined  as  a  function  of  the  ratio  of  the  elevator 

chord  to  the  chord  of  the  horizontal  tail  and  on  the  aspect  ratio  of  the  tail.  The 
corresponding  equations  are  summarized  (SM84): 


(7-13) 


For  the  case  where,  <  0.4 ,  no  restriction  onzfR,  exists  and, 
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0.169823 
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+  0.194084 


rc  ^ 
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V  ^tail  J 


—  0.00202833 


(7- 14a) 


c 

This  equation  also  holds  for  the  case  where  >  0.4  and  ARt  >  4.5  . 


^  tail 


When  >  0.4  and  ARt  <  4.5  . 

Ctail 


C.  =0.0563  +  0.0321 


' elev 


-0.4 


(7- 14b) 


K^tail  J 

The  next  term  is  the  two-dimensional  flap  effectiveness  parameter,  ( as  )c  .  This  is 


calculated  as: 
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'Me,  =4.65842 
-4.09969 
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’-elev 
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+  9.47521 

^  elev 

\  Ctail  J 

V  C  tail  J 

\  C  tail  J 

6C  A 

^  elev 


(7-15) 


V  Ctail  J 


-0.0432959 


The  value  for  (as  )Cj  directly  effects  the  next  series  of  calculations  to  find  a  value  for  the 

ratio  of  the  three-dimensional  flap  effectiveness  parameter  to  the  two-dimensional  flap 
effectiveness  parameter.  These  calculations  are  summarized  as: 

For  Me, 


Wcj 

Me, 


-  =  -0.0000580764 AR5  +  0.00203746/4# '  -  0.0284903/17?,3 


+  0.203783 AR?  -0.802715 AR,  +2.77199 
For  -0.2  <  (as)Ct  <-0.1; 

(as)cL  (  \  ((  \  (  \  {{as  )c,  +  ^  * 


(7- 16a) 


(7- 16b) 


(«<?),  =  -0.0000580764AK5  +  0.002037 46 AR?  -0.0284903 AR? 
+  0.2027Z3  AR?  -0.802715/4/?,  +2.77199 


(7- 16c) 


ias)2  = -0.000858209.4/?, 3  +  0.0224724AR? -0.206709/4/?,  +1.81719  (7-16d) 
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For  -0.3  <  (as)Ci  <-0.2: 


^as)c,  (  \  ,  ((  \  (  \  /(a<s)c,  +0-2^ 

-  («.  Uk), 


(a,),  = -0.000858209/17?, 3  +  0.0224724/47?,2  -  0.206709/47?,  +1.81719 

(as\  =  0.000132994/17?, 4  -0.00394386/47?, 3  +  0.04 5 0323/17?, 2  -0.249244/47?, 
+  1.69816 


For  -0.4<(as)Ci  <-0.3: 


Me, 

Me, 


=  (as\  +(M2-(as\ 


{as)c,  +0-3 


-0.1 


{as\  =  0.000 132994/17?, 4  -  0.003943 86/17?, 3  +  0.04 5 03 23/17?, 2  -0.249244/47?, 
+  1.69816 


M2  =-0.000007243 5 1/47?, 6  +  0.000235239/47?, 5  -  0.00285365/47?4 
+  0.0 150882/17?, 3  -0.0214656/47?, 2  -  0.108  6  8  5/47?,  +1.47429 


For  -0.5  <  (as)Ci  <-0.4: 


Me, 

Me, 


=  (as) ,  +((«J2-(«<5), 


(a«s)c,  +0-4 


0.1 


(a*),  =-0.000007243 5 1/47?, 6  +  0.000235239/4T?, 5  -  0.00285365/47?4 
+  0.0150882/47?, 3  -0.0214656/47?, 2  -0.108685/47?,  +1.47429 

(as)2  =-0.00  00 1  1 68 1/47?, 5  +0.000430597/17?, 4  -  0.00621 8 14/47?, 3 
+  0.0456723/17?, 2  -0.184917/47?,  +1.41226 


(7-16e) 

(7-16f) 

(7-16g) 

(7-16h) 

(7-160 

(7-16j) 

(7- 16k) 

(7-161) 

(7- 16m) 
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For  -0.6  <  {ccs)Ci  <-0.5: 


(^<5  )l  ((^J  )2  (aS  )l 


(«*),  =-0.000011 68 \AR5t  +  0.00043  05  97,47?, 4  -0.006218 \4AR3 
+  0.045  6723 ,47?2  -0.1 84917/17?,  +1.41226 


(as)2  =-0.0000073708 /IT?,5  +  0.000307952/17?, 4  -0.00489224/17?3 
+  0.0380384 /IT?,2  -0.154526/17?,  +1.32116 


For  -0.7  <  (as)Ci  < -0.6  : 


MCl 

Me, 


=  (as )l  +((«,? )2  ~(as\ 


(as\  =  -0.0000073708/17?, 5  +  0.000307952/17?, 4  -  0.00489224/17?, 3 
+  0.03  803  84/17?2  -0.154526.47?,  +1.32116 


(as\  =  0.0000024349447?4  -0.00025541547^3  +0.0057768/17?,2 
-0.04872347?^  +1.16569 


For  -0.8  <{as)Ci  <-0.7: 


We 

(«*)< 


(as\  =  0.0000024349447?, 4  -  0.00025541547?, 3  +  0.005776847?,2 
-0.048723/17?,  +1.16569 


W)2  =  0.000025524447?,4  -0.0008070747?,3  +  0.0093525447^2 
-0.048746647?,  +1.12006 


(7-16n) 

(7-16o) 

(7-16p) 

(7-16q) 

(7-16r) 

(7- 16s) 

(7-16t) 

(7-16u) 

(7-16v) 
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And  for  - 1.0  <  (as )  <  -0.8 : 


=  (as) i  +((as)i 


(as\  =  0.0000255244 AK,4  -  0.00080707^3  +0.0093 5254 AR? 
-  0.0487466 AK,  +1.12006 


(7-16w) 


(7-16x) 


(a„\  =  1.0 


(7-1 6y) 


7.1.15  Change  in  drag  coefficient  due  to  elevator  deflection 

Assuming  a  reasonably  sized  elevator,  this  derivative  has  very  little  effect  on  the  total 
airplane  drag  and  is  therefore  neglected  for  the  purposes  of  this  analysis. 


7.1.16  Change  in  pitching  moment  coefficient  due  to  elevator  deflection 

Also  known  as  “elevator  power”  or  “elevator  effectiveness,”  this  stability  derivative  is 
the  change  in  pitching  moment  coefficient  with  a  change  in  the  elevator  angle.  The 
following  equation  calculates  the  derivative  as  the  moment  due  to  lift  on  the  horizontal 
tail  upon  elevator  deflection, 


Cm 

>  c  u 


SB 


(7-17) 


The  above  derivatives  constitute  the  non-dimensional,  longitudinal  stability  derivatives. 
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7.2  Dimensional  longitudinal  stability  derivatives 

The  respective  dimensional,  longitudinal  stability  derivatives  are  obtained  through  a 
series  of  equations  outlined  in  (SC98,  SM84).  These  derivatives  are  used  directly  in  the 
formulation  of  the  aircraft  state-space  problem. 

7.2.1  Change  in  force  in  the  x-direction  with  airspeed 

The  dimensional  force  in  the  x-direction  due  to  changes  in  airspeed  is  given  as: 


X,.  = 


pUS 


m 


-£c  -c 

_  ^  n  v'  r 


(7-18) 


For  this  analysis  the  variation  in  drag  due  to  velocity  denoted  by  the  stability  derivative, 
CD  ,  is  assumed  to  be  negligible. 


7.2.2  Change  in  force  in  the  z-direction  with  airspeed 

The  dimensional  force  in  the  z-direction  due  to  changes  in  airspeed  is  given  as: 


Z..  = 


pUS 


rri 


-—CL  -CL 
V  2  11  ‘ 


(7-19) 


For  this  analysis  the  variation  in  lift  due  to  velocity  denoted  by  the  stability  derivative, 
CLu ,  is  assumed  to  be  negligible. 


7.2.3  Change  in  pitching  moment  with  airspeed 

The  dimensional  pitching  moment  due  to  changes  in  airspeed  is  given  as: 
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USc(JJ_c 


yy 


(7-20) 


For  this  analysis  the  variation  in  pitching  moment  due  to  velocity  denoted  by  the  stability 


derivative,  C„u ,  is  assumed  to  be  negligible. 


7.2.4  Change  in  force  in  the  x-direction  with  angle  of  attack 

The  dimensional  force  in  the  x-direction  due  to  varying  angle  of  attack  is  given  as: 


X„ 


pU^S_ 

2m 


(q-cJ 


(7-21) 


7.2.5  Change  in  force  in  the  z-direction  with  angle  of  attack 

The  dimensional  force  in  the  z-direction  due  to  varying  angle  of  attack  is  given  as: 


(7-22) 


7.2.6  Change  in  pitching  moment  with  angle  of  attack 

The  dimensional  pitching  moment  due  to  varying  angle  of  attack  is  given  as: 


M , 


_  pU2Sc 


21. 


C„ 


yy 


(7-23) 


7.2.7  Change  in  force  in  the  x-direction  with  rate  of  change  of  angle  of  attack 

The  dimensional  force  in  the  x-direction  due  to  varying  rate  of  change  of  angle  of  attack 
is  given  as: 
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X.  = 


pUSc_r 

4  m  D * 


(7-24) 


7.2.8  Change  in  force  in  the  z-direction  with  rate  of  change  of  angle  of  attack 

The  dimensional  force  in  the  z-direction  due  to  varying  rate  of  change  of  angle  of  attack 
is  given  as: 


pUSc  c 

4  m 


(7-25) 


7.2.9  Change  in  pitching  moment  with  rate  of  change  of  angle  of  attack 

The  dimensional  pitching  moment  due  to  varying  rate  of  change  of  angle  of  attack  is 
given  as: 


M.  =pUKr_c 


4 1 


yy 


(7-26) 


7.2.10  Change  in  force  in  the  x-direction  with  pitch  rate 

The  dimensional  force  in  the  x-direction  due  to  varying  pitch  rate  is  given  as: 


pUScc 

4m 


(7-27) 


7.2.11  Change  in  force  in  the  z-direction  with  pitch  rate 

The  dimensional  force  in  the  z-direction  due  to  varying  pitch  rate  is  given  as: 
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Z  =  ^P^-CL 

q  4m  q 


(7-28) 


7.2.12  Change  in  pitching  moment  with  pitch  rate 

The  dimensional  pitching  moment  due  to  varying  pitch  rate  is  given  as: 
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yy 


(7-29) 


7.2.13  Change  in  force  in  the  x-direction  with  elevator  deflection 

The  dimensional  force  in  the  x-direction  due  to  a  change  in  elevator  deflection  is  given 


as: 


pU2S 


Cr 


2m  'Ds* 


(7-30) 


7.2.14  Change  in  force  in  the  z-direction  with  elevator  deflection 

The  dimensional  force  in  the  z-direction  due  to  a  change  in  elevator  deflection  is  given 

as: 


7  _  _  pU  S 

/-Jsn  ~  —  Wt, 


2m  Sa 


(7-31) 
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7.2.15  Change  in  pitching  moment  with  elevator  deflection 

The  dimensional  pitching  moment  due  to  a  change  in  elevator  deflection  is  given  as: 


=  £U^Sc_c 


mS„ 


(7-32) 


yy 


This  completes  the  list  of  dimensional  longitudinal  stability  derivatives. 


7.3  Non-dimensional  lateral-directional  stability  derivatives 

The  next  set  of  equations  is  used  to  determine  the  lateral-directional  stability  derivatives. 
These  derivatives  pertain  to  rotational  motion  (roll  and  yaw)  about  the  x-body-axis  and 
the  z-body-axis  and  to  translational  motion  in  the  y-body-axis.  The  rate  derivatives, 
dependent  on  the  roll  rate,  p,  and  yaw  rate,  r,  are  dimensionless. 


7.3.1  Change  in  side-force  coefficient  with  sideslip  angle 

Wing  sweep  and  dihedral,  the  fuselage,  and  the  vertical  tail  contribute  to  this  stability 
derivative.  Developing  each  contribution  separately  allows  the  total  expression  for  this 
derivative  in  the  form: 


C  =C 

yp  y, w 


+  C„  +C, 


'yp* 


y^n 


(7-33) 


The  wing  contribution  consists  of  the  effects  from  wing  sweep  and  wing  dihedral.  These 
contributions  are  given  as: 


C 


ye,* 


6  tan  A  sin  A 
^A(^A  +  4cosA) 


(TQ48)  (7-34) 
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and 

C^=-°0001'lrl'57-3  (f®68)  O'36) 

The  fuselage  contribution  is  given  as: 

(HE68)  (7-3 6a) 

\  ■  J 

In  this  equation,  the  wing-fuselage  interference  factor,  Kh  depends  on  the  location  of  the 
wing  in  relation  to  the  body  centerline.  For  wings  positioned  above  the  body  centerline; 

£,=  1-0.85555^-  (7-3  6b) 

h 

For  wings  positioned  below  the  body  centerline  the  equation  becomes: 

Ki  -  1  +  0.485-^^-  (7-3 6c) 

h 

The  value  for  CL  is  fixed  depending  on  the  general  shape  of  the  fuselage.  For  a  round¬ 
shaped  fuselage  this  is  0.0525  per  radian  and  for  a  rectangular  fuselage,  0.1243  per 
radian.  The  final  contributor  to  Cy^  is  the  vertical  tail.  Its  contribution  is  formulated  as: 

=-iC^.[0724  +  3  06^~X)  +  «‘t^+0.009^j^.  (HE68)  (7-37) 

In  this  equation,  k  is  an  empirical  factor  that  depends  upon  the  ratio  of  the  vertical  tail 
span  to  the  fuselage  diameter  in  the  tail  region  (SM84).  In  the  code  this  ratio  is  defined 


as: 
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PAR  =  ^~  (7-3  8a) 

2  r\ 

For  PAR  <  2.0,  k=  0.75,  while  for  PAR  >  3.5,  k  =  1.0.  Between  these  values,  PAR  is 
calculated  using  the  linear  equation: 


£  =  l  +  0.166(P,lR-3.5) 


(7-3  8b) 


The  above  equation  for  Cy^  ^  introduces  the  lift-curve-slope  of  the  vertical  tail.  (SD43) 
formulates  this  coefficient  as: 


f 0.00003 97694 ARL  -0.00069754 AR\  +  0.004614643„  ") 

eJJ*rt  eJJtall  Wye* 

0.158634^^  +  0 . 040 1 97 9ARejr^  +0.00037328 


(7-39) 


7.3.2  Change  in  rolling  moment  coefficient  with  sideslip  angle 
This  derivative  is  often  called  the  “effective  dihedral  derivative.”  (PH49)  formulates  this 
derivative  using  contributions  from  wing  dihedral,  wing  shape  and  position,  and  the 
vertical  tail.  This  equation  is  given  as: 


C,  —  C,  +C.  +C,  +  AC,  +  AC, 

l0Hlh  lp2 


A  Adih  Awing  Avert 

The  wing  dihedral  contribution  is 


(7-40) 


f 


C,  =57.3-T- 

Adih 


0.20833  -  7(0.0434  -  4.6296  •  (l  .0052  -  ARj) 
2.3148148 

+  0.7(l  -  A,)2 

6.5 


•0.0001  (7-41) 
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The  wing  contribution  is  calculated  assuming  zero  dihedral  and  is  given  by  (QU56)  to  be 


C,  =  Q 

filing  L 


1.25-(0.7U  +  0.2<>)  ' 

ARA 


(7-42) 


The  vertical  tail  contribution  arises  from  the  normal  force  caused  by  sideslip  and  is  given 
by  the  equation: 


C  =-C  —  —  77 

Vwn  '««*  S  b  ^v 


(PH49)  (7-43) 


The  last  two  terms  represent  the  interference  effects  between  the  wing-fuselage  and  the 
wing-vertical  tail.  These  values  are  dependent  upon  the  wing  position  and  are 
summarized  in  the  following  table,  which  has  been  duplicated  from  (SM84). 

TABLE  7,3.1:  Values  for  interference  effects  on  the  vertical  tail  fl/rad) 


Wing-fuselage 

AC, 

‘a 

Wing-vertical  Tail 
AC, 

High  Wing 

-0.0006 

0.00016 

Mid  Wing 

0 

0 

Low  Wing 

0.0008 

-0.00016 

7.3.3  Change  in  yawing  moment  coefficient  with  sideslip  angle 

This  derivative  is  often  referred  to  as  “weathercock  stability”  or  as  the  static  directional 
stability  derivative.  The  method  used  to  calculate  this  derivative  includes  contributions 
from  the  fuselage  and  the  vertical  tail  and  appears  as: 


C„  =-K. 


S  b 


c 


K 

b 


(HE68) 


(7-42) 
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K„  is  an  empirical  interference  factor  that  is  given  as  a  function  of  aircraft  geometry  and 
Reynolds  number  (SM84). 


7.3.4  Change  in  rolling  moment  coefficient  with  roll  rate 

This  derivative  is  known  as  the  roll-damping  derivative.  The  main  contribution  comes 
from  the  wing  however,  the  effects  of  the  horizontal  and  vertical  tails  are  also  considered 
here.  The  complete  formulation  appears  as: 


C,  —Cj  +Cj  +  c, 

P  Pwing  Piail  lPvert 


(7-43) 


In  this  equation  the  wing  contribution  is  determined  under  the  assumptions  of  zero  or 
small  sweep,  small  dihedral,  and  a  linear  lift  curve  slope.  The  resulting  equation  is: 


C, 


C.  - 


1  Cl 


f 


Pwing  Paow 


8  tiAR  cos  A 


'4fi  +  2COSA'l-icn,  (GA49)  (7-44a) 

o 


l  +  2sin2  A 
V  /4i?  +  4cosA 


where 


C,  =C, 

Paow  Pao 


f  \ 

zfA  +  4cosA 
_  tcAR 

2— — h  4  cos  A 


C, 


(BI49) 


(7-44b) 


with 


C,  =  0.00000929805/1A5  -  0.0003 18 18^A4  +  0.00379426^A3 

Pao 

h  _rt(AR_W  (CM52)  (7-44c) 

-0.0157796^A2  -0.049926  IAR- 0.0500059  +  0209  1  ; 

9 


The  horizontal  tail  contribution  is  found  in  the  same  manner  through  the  equation 
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C,  =  0.5— -y-C, 

S  b  '*«* 


f  .  ^ 

+  4cosA( 

.  ;c47?, 

2- — -  +  4cosA, 


q 


V  atall 


) 


with 


C,  =  0. 00000929805 AJ?5  -  0.0003 18 18/4 A, 4  +  0.003 79426^7?, 3 

Pao  L  *  I 

-0.0157796/47?,2  -0.049926 1/1  A,  -0.0500059  +  0  209— 

9 

The  final  contribution,  that  from  the  vertical  tail,  is  given  as: 


C,  =2 


q.  ^ 


c 


J 


7.3.5  Change  in  side-force  coefficient  with  roll  rate 

The  vertical  tail  is  the  main  contributor  to  this  derivative.  It  is  formulated  as: 


q  = 


fcv ) 

(AC.  ) 

•V 

C,  + 

yP 

Iqj 

L 

c . 

V  Zi>r« o  J 

q 


(HE68) 


The  ratios  given  in  the  above  equation  are  determined  by: 


(c,) 

i 

4 +  7' (S7-3 A  30)  /  _  ,.58495  j 

v  q  / 

"To 

60  V 

and 


AC 


Vp 


c, 

V  JT-o  J 


(r-io) 

17.5 


+  0.5 


(7-45a) 


(7-45b) 


(7-46) 


(7-47b) 


(7-47b) 


(7-47c) 
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7.3.6  Change  in  yawing  moment  coefficient  with  roll  rate 

The  wing  and  the  vertical  tail  are  the  main  contributors  to  this  derivative.  The  form  of  the 
equation  is  simply: 


ftp  »ing 


+c„ 


(7-48) 


The  wing  contribution  is  calculated  as: 


C„  =CL 


AR  +  4 


Pwlng  AR  +  4  cos  A 


1  +  6 


1  + 


cos  A 
AR 


tan2  A 


fCt  ' 


12 

The  ratio  of  to  CL  for  unswept  wings,  as  a  function  of  Aft,  is  found  to  be 
=  -0.0000 140468 Aft3  +0.000649352 AR2  -0.0122523 Aft 


(TQ48)  (7-49a) 


r 

V  ^  A=o’ 

+  0.00192856 


(7-49b) 


(W051)  presents  the  formulation  of  the  vertical  tail  contribution  as  it  is  effected  by 
variations  in  sidewash  on  the  wing  and  fuselage.  This  relationship  is  given  as: 

A,  1  1  -  f 


C^«  ~  573C‘a«„  ~f^V  Sb  a+lv  C0Stt1  b^V  C0SCC  ~  ^  ^ 


5cr,  dcr2 


(7-50) 

Two  terms  are  introduced  in  this  relationship,  which  represent  the  effect  of  wing 
sidewash  and  fuselage  sidewash.  The  first  is  given  as  a  function  of  2zjb  or,  as  referred 
to  within  the  analysis,  P.  The  formulation  from  (SM84)  follows: 
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^  =  <r,+m(«,-cr2) 


(7-5  la) 


where 


c,  =  22360.7 P9  -69947. IP8  +  724643P7  -  70229.7 P6  +32373.8 P5 
-9487. OLP4  +1764. 41P3  -200. 25P2  +  11. 9843P- 0.00142786 


and  for  P  >  0.157 

o’ 2  =  0.533183P2  -  0.78216P  +  0.35 17  (7-5 lc) 

otherwise, 


a2  =  216915P9  -610122P8  +  724643P7  -  473060P6  +  185140P5 
-44463. 6P4  +6444. 43P3  -531. 134P2  +21.1205P  +  0.0395735 


The  fuselage  sidewash  effect,  denoted  by  the  second  term,  is  given  as: 


9.30 


Ah 

V  Vj 


3 

b 


where 


(7-5  Id) 


(7-52a) 


A h  _zv-  zv  cosa  - lv  sin  a 
b  b 


(7-52b) 


7.3.7  Change  in  side-force  coefficient  with  yaw  rate 

The  main  contributions  to  this  derivative  come  from  the  vertical  tail  and,  to  a  small 
degree,  the  wing.  The  resulting  equation  is: 

Cy,  =  CVr .  +  C 

’  rWHg  '  r vtrt 


(7-53) 


54 


The  corresponding  components  are  given  as: 

Cy  =0.143C,  -0.05 

•''win*  u 


and 


C 


y^r, 


C 


yp*n 


(GB48)  (7-54) 


(CM52)  (7-55) 


7.3.8  Change  in  rolling  moment  coefficient  with  yaw  rate 

The  dominant  contributors  to  this  derivative  are  the  wing  and  vertical  tail.  The  basic 
relationship  is: 


C,  =C.  +C, 

lr  lrw!n<, 


The  wing  contribution  is  calculated 


(7-56) 


C,  =0.05 

100 -57.3  A  L 


where  the  dummy  variable,  Y,  is  given  as 

Y  =  -0.0000247674AR4  +  0.00194154AR3  -0.0468052y4/?2 

(AR  +  32.4)(/j‘ 12^l~'l)) 


+  0.456404 AR  -  0.0980299  +  • 

20.6511 

The  vertical  tail  contribution  is  simply: 

_  I  z 

C,  =  -2^~-C 

'"H  Jj  -  y Plait 


•  +  2 


(HE68) 


(7-57a) 


(SM84) 


(7-57b) 


(CG49) 


(7-58) 
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7.3.9  Change  in  yawing  moment  coefficient  with  yaw  rate 

This  derivative  is  known  as  the  yaw  damping  derivative.  The  vertical  tail  is  the  main 
contributor  though  the  following  formulation  also  takes  the  effect  of  the  wing  into 
account.  The  sum  of  these  effects  yields: 


=  C„ 


rwing 


+  C. 


(7-59) 


In  the  above  equation,  the  wing  contribution  is  calculated  as: 


C„  =  -0.33 


rwi ng 


1  +  31 

2  +  21 


fa,-  0.02 


f 


AR-6  1-1 


1- 
V  13 


2.5 


C2 


(CM43)  (7-60) 


And  the  vertical  tail  contribution  appears  as: 


C„  =2\  — 

{  b 


C 


yPtail 


(CM52) 


(7-61) 


7.3.10  Change  in  side-force  coefficient  with  aileron  deflection 

This  derivative  is  zero  for  most  conventional,  light  aircraft  and  is  assumed  to  be  so 
throughout  this  analysis. 


7.3.11  Change  in  rolling  moment  coefficient  with  aileron  deflection 

This  derivative  is  commonly  known  as  the  aileron  effectiveness  or  “aileron  power.”  The 
basic  equation  is  given  as: 


C,  = 


‘Sa 


A.  1 


V  r  J 


(PJ38)  (7-62) 
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The  method  presented  requires  two  steps  to  find  the  ratio  of  C,  to  r  .  The  first  step  is  to 

l*A  r 

calculate  this  ratio  using  the  distance,  P,  from  the  body  centerline  to  the  outboard  edge  of 
the  aileron  divided  by  the  wing  semi-span.  The  following  equations  summarize  the 
necessary  calculations  and  restrictions  from  (SM84): 

To  calculate  the  required  distance  for  the  first  step  use  the  relation: 


P  = 


27. 


(7-63) 


The  desired  ratio  is  dependent  upon  the  aspect  ratio  and  therefore  is  calculated  three 
different  ways.  The  first  is  for  the  case  of  6  <  AR  <  10 : 


f  r  \ 
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\  T  Jb 
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'Sa 


for  AR  <  6 : 


and  for  AR  >  10 


V  T  Ja 
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V  r  Jb. 
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V  r  Jb 


(7-64a) 


(7-64b) 


(c>  ^ 
1SA 

fc, 
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\  J 

J 

(7-64c) 


These  relationships  refer  to  the  following  formulas  and  the  corresponding  ratios: 

rc,  ' 


2.0833P5  -6.1553P4  +5.36932P3  -0.567235P2 


V  T  J 


+  0.170341P- 0.000227237 


(7-65) 
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=  51.702.P8  -238.294P7  +451.162P6  -444.985P5  +  241.797P' 


-70.2549P3  +  10.5819P2  -0.408045P  + 0.00001 19225 


(7-66) 


This  completes  the  first  step.  The  second  step  uses  the  distance  from  the  body  centerline 


to  the  inboard  edge  of  the  aileron  divided  by  the  wing  semi-span: 

D  2(r+6.) 


(7-67) 


Using  this  new  value,  the  ratio  of  C,  to  t  is  recalculated  utilizing  the  same  equations, 


under  the  same  restrictions.  The  final  value  for  this  ratio  is  found  as: 


(7-68) 


The  final  step  in  determining  C,  is  to  find  r,  which  is  given  as: 


r  =  -6 5.1062f-^_l  +50.8227f-^l 


15.7949  -—e-  +3.53383'  — 


(7-69) 


+  0.000043467 


7.3.12  Change  in  yawing  moment  coefficient  with  aileron  deflection 

The  equation  for  this  derivative  is  given  as: 


C„.  =2KCrC, 


(HE68)  (7-70) 
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The  empirical  factor,  K,  is  dependent  on  the  wing  aspect  ratio  and  the  distance  from  the 
body  centerline  to  the  inboard  edge  of  the  aileron  divided  by  the  wing  semi-span.  This 
distance  appears  as: 


R  =  —L  (7-71) 

b 

For  all  values  of  the  wing  aspect  ratio,  K  is  calculated  as: 

„  T-0.25/  \ 

/•+“o w**~*f'>  v-1T> 

The  following  series  of  equations  and  relationships  presents  the  method  for  determining 


the  terms  efi  and  efi  from  (SM84): 

For  AR  <  3 : 

eA  =-0.36  (7-73  a) 

e/2  =  -0.08899767?3  - 0.006661097?2  +0.04190537? - 0.284843  (7-73b) 

For  3  </!/?<  4: 

eA=AA+(AR-3lBA-Af{)  (7-73c) 

^=-0.36  (7-73  d) 

BA  =  0.0538037/?3  -  0. 1338557?2  +  0.006278547?  -  0.262321  (7-73e) 

and 

<7,  =+,+(■« -3  \BA-Ah) 


(7-73  f) 
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Afi  =  -0.08899767?3  -  0.006661097?2  +  0.04190537?  -  0.28483  (7-73g) 

Ba  =  0.05493877?3  -0.1642987?2  +0.1018647? -0.234861  (7-73h) 

For  4  <  AR  <  6  : 

eA  =  4,  +  0  5(AR  ~  4K  -  \  )  (7-73  i) 

4,  =  0.0538037 7?3  -  0: 1338557?2  +  0.006278547? -  0.262321  (7-73j) 

BA  = -0.06298237?3  -  0.01733757?2  -0.03334277? -0.180026  (7-73k) 

and 

‘a^A,,+0.5(AR-4ba-Aa)  (7-731) 

Afi  =  0.05493877?3  -0.1642987?2  +  0.1018647?-0.234861  (7-73m) 

Bfi  = -0.10891  IT?3  +0.0291 1497?2  +0.04409617? -0.1603 12  (7-73n) 

For  6  <  AR  <  8  : 

ca=Aa+0.5{AR-6  Iba-A,)  (7-73o) 

^  = -0.06298237?3  - 0.01733757?2  -0.03334277? -0.180026  (7-73p) 

5^  =-0.10891  IT?3  +  0.0291 1497?2  +0.04409617? -0.1603 12  (7-73q) 

and 

e/i  =  4,  +  °-5(^  -  6tBf2  -  4, )  (7-73r) 

4  = -0.10891  IT?3  +0.0291 149/?2  +0.04409617? -0.1603 12  (7-73s) 

5/2  =  -0.1913657?3  +  0.1472847?2  -  0.000392967?-  0. 119884  (7-73t) 


and  finally,  for  AR  >  8  : 


eA  =-0.11052 6R2  +  0.013893^  -  0.146355 
eh  =  -0. 1913657?3  +  0.147284/?2  -  0.000392967?-  0. 119884 


(7-73u) 

(7-73v) 


7.3.13  Change  in  side-force  coefficient  with  rudder  deflection 

(ET59)  gives  the  following  formula  for  estimating  this  derivative: 

Cy  =  C,  t ^ 

y*R  l«vcrt  £ 


(7-74a) 


where 


t  =  21.7949 


f Sr) 
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(s  1 
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(s  > 
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(S  "l 

UJ 

-46.4744 

j 

+  36.9347 

U  r 

UJ 

-14.259 

1  u  r 
UJ 

f 


+  3.70551 


V 


0.000057815 


(7-74b) 


7.3.14  Change  in  rolling  moment  coefficient  with  rudder  deflection 
The  equation  for  calculating  this  derivative  is: 

(ET59)  (7-75) 

The  value  of  t  is  calculated  by  using  the  same  equation  given  in  the  development  of 
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7.3.15  Change  in  yawing  moment  coefficient  with  rudder  deflection 

This  derivative  is  known  as  the  “rudder  power.”  (PH49)  gives  the  following  formulation 
for  this  derivative: 


n  n  SI 
CnSK  =-C/_r  — ' T7v 


S  b 

The  value  of  ris  calculated  by  using  the  same  equation  given  in  the  development  of 


(7-76) 


C 


7.4  Dimensional  lateral-directional  stability  derivatives 

The  respective  dimensional,  lateral-directional  stability  derivatives  are  obtained  through  a 
series  of  equations  outlined  in  (SC98,  SM84).  These  derivatives  are  used  directly  in  the 
formulation  of  the  aircraft  state-space  problem. 

7.4.1  Change  in  force  in  the  y-direction  with  sideslip  angle 

The  dimensional  force  in  the  y-direction  due  to  changes  in  sideslip  angle  is  given  as: 

Y  _pU2Sr 


(7-77) 
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7.4.2  Change  in  rolling  moment  with  sideslip  angle 

The  dimensional  rolling  moment  due  to  changes  in  sideslip  angle  is: 


Lt=^C, 

p  21  '' 


(7-78) 


7.4.3  Change  in  yawing  moment  with  sideslip  angle 

The  dimensional  yawing  moment  due  to  changes  in  sideslip  angle  is: 


pU^Sb 
2  4 


7.4.4  Change  in  force  in  the  y-direction  with  roll  rate 

The  dimensional  force  in  the  y-direction  due  to  variations  in  roll  rate  is: 

Y  _  pUSb 
p  4  m 


(7-79) 


(7-80) 


7.4.5  Change  in  rolling  moment  with  roll  rate 

The  dimensional  rolling  moment  due  to  variations  in  roll  rate  is: 

L  _ 

p  4 1  l> 

XX 

7.4.6  Change  in  yawing  moment  with  roll  rate 


(7-81) 


The  dimensional  yawing  moment  due  to  variations  in  roll  rate  is: 
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pUSb7 
4  T 


C„ 


(7-82) 


7.4.7  Change  in  force  in  the  y-direction  with  yaw  rate 

The  dimensional  force  in  the  y-direction  due  to  variations  in  yaw  rate  is: 

Y  -  PlJSh  Q 


(7-83) 


7.4.8  Change  in  rolling  moment  with  yaw  rate 

The  dimensional  rolling  moment  due  to  variations  in  yaw  rate  is: 


(7-84) 


7.4.9  Change  in  yawing  moment  with  yaw  rate 

The  dimensional  yawing  moment  due  to  variations  in  yaw  rate  is: 

41.. 


(7-85) 


7.4.10  Change  in  force  in  the  y-direction  with  aileron  deflection 

The  dimensional  force  in  the  y-direction  due  to  changing  aileron  deflection  is: 


y. 


_  pU2S 


c 


y*A 


2m 


(7-86) 


7.4.11  Change  in  rolling  moment  with  aileron  deflection 

The  dimensional  rolling  moment  due  to  changing  aileron  deflection  is: 


_  pu2sbr 

Sa  2/ 

XX 


(7-87) 


7.4.12  Change  in  yawing  moment  with  aileron  deflection 

The  dimensional  yawing  moment  due  to  changing  aileron  deflection  is: 


Nx 


_  pU2Sb 
21. 


7.4.13  Change  in  force  in  the  y-direction  with  rudder  deflection 

The  dimensional  force  in  the  y-direction  due  to  changing  rudder  deflection  is: 

Y  -  PU*S  r 
Sr  2m  ys« 


(7-88) 


(7-89) 


7.4.11  Change  in  rolling  moment  with  rudder  deflection 

The  dimensional  rolling  moment  due  to  changing  rudder  deflection  is: 
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7.4.12  Change  in  yawing  moment  with  rudder  deflection 

The  dimensional  yawing  moment  due  to  changing  rudder  deflection  is: 


(7-91) 


This  completes  the  list  of  dimensional  lateral-directional  stability  derivatives. 
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8.  STATIC  STABILITY  AND  CONTROL 


The  S&C  derivatives  presented  in  the  previous  chapter  are  now  used  for  static  stability 
and  control  analysis.  This  chapter  presents  static  S&C  analysis  techniques  used  to 
guarantee  desirable  S&C  characteristics,  as  will  be  defined  in  the  set  of  constraints  used 
to  drive  the  design  optimization  process. 


8.1  Ground  handling  stability 

The  ground  handling  stability  of  an  aircraft  refers  to  stability  on  the  ground  during  taxiing 
and  takeoff  ground  roll.  The  important  factors  laid  out  by  (R0185)  are  the  tip-over 
criterion,  the  longitudinal  ground  clearance  criterion,  and  the  loading  distribution  on  the 
landing  gear.  Tricycle  landing  gear  is  assumed  to  be  standard  for  the  type  of  aircraft 
considered  by  this  analysis. 


8.1.1  Tip-over  criterion 

The  tip-over  criterion  is  based  on  statistical  data,  which  shows  that  the  angle  made 
between  the  main  landing  gear  and  the  center  of  gravity  location  is  typically  15  degrees. 
Based  on  the  aircraft  geometry: 


iipangle  =  tan-1 


f  X  N 

^  gear 
V  ^  gear  J 


(8-la) 


where 
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X„=CG„-XM 

(8-lb) 

=05A,,„, +z(  +0.5/. 

(8-lc) 

8.1.2  Longitudinal  ground  clearance  criterion 

This  ground  clearance  criterion  requires  that  the  aircraft  have  the  capability  to  rotate  to 
the  angle  required  for  lift-off  without  hitting  the  tail  of  the  aircraft  on  the  runway. 
Statistical  data  shows  that  this  is  typically  15  degrees  but  may  be  more  or  less  depending 
on  the  incidence  angle  of  the  wing  and  the  geometric  angle  of  attack  due  to  the  landing 
gear.  As  a  conservative  estimate,  the  wing  incidence  angle  is  not  accounted  for  and  the 
following  approximation  is  used: 


clearance  =  tan  1 


gear 


\  Lb  -  CG.„,  J 


(8-2) 


8.1.3  Maximum  static  load  per  strut 

This  requirement  on  the  maximum  static  load  per  strut  ensures  stability  on  the  ground  as 
well  as  the  ability  to  rotate  for  takeoff.  Excessive  loading  either  way  creates  problems  in 
both  arenas.  The  formulation  taken  from  (R0185)  is: 

f  Tir  \ 


P’  = 


W  X 

r  guess  ^  gear 


yXs,„+XM-CGntrJ 


/> . = 


w  (xm-cgJ 


(8-3) 


(8-4) 
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8.2  Control  effectiveness  and  travel 

The  surface  area  of  the  elevator,  rudder,  and  ailerons  must  be  such  that  the  control 
deflection  required  to  maintain  or  alter  a  given  condition  does  not  exceed  the  physical 
limitations  on  the  maximum  and  minimum  travel.  This  restriction  dictates  the  control 
effectiveness  and  directly  affects  the  sizing  of  control  surfaces. 


8.2.1  Static  elevator  control 

In  this  case  static  elevator  control  refers  to  the  ability  to  obtain  the  maximum  lift 
coefficient  in  steady,  level,  unaccelerated  flight.  At  this  condition,  the  lift  and  moment 
coefficients  can  be  expressed  as: 


Q0  +  Cr  &  +  CL  SE  -  C  T 


(8-5  a) 


C m0  +  ^ ma  a  ~  ^ 


(8-5b) 


These  relationships  yield  the  following  result  for  the  required  elevator  deflection: 


C 

C 


mss 


-1 


-c 


m  o 


(8-6) 


8.2.2  Rotation 

Another  requirement  on  the  elevator  is  the  ability  to  induce  rotation  at  takeoff.  This 
control  requirement  can  be  derived  by  summing  the  moments  about  either  the  aircraft 
center  of  gravity  or  point  of  contact  of  the  main  landing  gear  with  the  runway.  As  a 
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rough  approximation,  the  thrust  and  drag  forces  are  assumed  to  be  equal  and  therefore  do 
not  appear  in  the  following  equation: 

(8-7a) 

where 

Urolale=l.UUtakeoff  (R0185)  (8 -7b) 

and 


WjCG^-XM) 

■5pULjc 


-C  -C  a 

rtiQ  ma  ground 
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msE 


CG^-XM 


CGmgr  -  XM 


CL~ 


CGmgr-XM 


a ground 


a  ground  =  tan 


(8-7c) 


8.2.3  Static  roll  rate 

This  requirement  imposes  a  condition  on  the  required  aileron  deflection  based  upon  a 
user  defined  static  roll  rate.  In  order  to  achieve  this  roll  rate,  the  maximum/minimum 
aileron  deflection  must  allow  for: 

5 a  =  —■^eLp  (SC98)  (8-8) 

LSa 
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8.2.4  Control  in  sideslip 

This  requirement  effects  both  the  rudder  and  the  ailerons,  which  must  be  implemented  to 
maintain  stable  flight  under  the  influence  of  a  crosswind.  This  crosswind  is 
approximated  by  the  effective  sideslip  angle  and  is  usually  set  at  +/-  10  degrees  (SC98). 
Solving  the  following  relationship  (SC98)  provides  the  required  rudder  and  aileron 
deflections  needed  for  a  user-specified  sideslip  angle: 


'  A  f 
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c», 
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<ASr 

>  —  — 
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(SC98) 

(8-9) 
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9.  DYNAMIC  STABILITY  AND  CONTROL  ANALYSIS 

The  ability  to  perform  dynamic  stability  and  control  analysis  during  the  early  design 
phase  is  rarely  available.  However,  combining  the  computationally-fast  applied 
aerodynamic  analysis  presented  in  the  previous  chapters,  with  stability  derivatives  and 
the  analysis  presented  in  this  chapter  leads  to  a  computationally-efficient  dynamic  S&C 
analysis  capability  that  is  suitable  for  design  optimization  studies.  The  analysis  methods 
presented  for  both  the  longitudinal  and  lateral-directional  cases  are  based  on  (SC98). 

9.1  Longitudinal  Dynamics 

Longitudinal  dynamics  refers  to  the  aircraft’s  behavior  about  the  y-body  in  the  plane  of 
symmetry. 

9.1.1  Linearized  equations  of  motion 

The  linearized  equations  of  motion  governing  this  system  are  (SC98): 

U^/U )  =  UXu  (u/U  )+Xaa-gcos®o0  +  XsS  (9-1  a) 

•(C  -Zd)cc  =  UZu(ii/U)  +  Zacc  +  ((J  +  Zq)q  -  gsm®o0  +  ZsS  (9-lb) 

~Mda  +  q  =  UMu{n/U)  +  Maa  +Mqq  +  MsS  (9-lc) 

These  equations  can  be  written  in  the  form  of  a  linear  time-invariant  state  space  problem: 


bH4*)+M4 


(9-2) 
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where  the  4x4  longitudinal  airframe  plant  matrix,  [A],  is  given  by: 


Au=Xu  An=Xa/U 

A1,=UZJ{U-Zi) 


(9-3) 

Au  =0  Au  =  ■  (xjVjcosO 

Aa=z./(u-zt) 

4U  =  -  gsin0/((/-Z4) 


A3i  =  UMu  +MaUZu/{U  -  Zj) 


A„=Ma+MiZJ(U-Zi) 


A„^Mt+MX  +  Z,)l(U-Za) 


A,  4=0 


^41  Aa2  ~  A 44  —  0 

the  4x1  longitudinal  airframe  control  vector  is: 


B^X.JU  B2  =ZSJ(U-Zi) 

B,=Mt'+MtZ,J(U-Za)  B4  =0 
and  the  longitudinal  state  vector  is: 


(9-4) 


{x}=[u/U  a  q  0]T 


(9-5) 


The  task  of  solving  the  homogeneous  form  of  the  above  state-space  system  of  equations 


for  the  longitudinal  modes  is  now  a  standard  eigenvalue  problem. 
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9.1.2  Eigenvalue  interpretation 

In  the  above  analysis,  the  eigenvalues  of  the  plant  matrix,  [A],  are  expected  (in  most 
conventional  airplane  designs)  to  be  two  conjugate  pairs  of  roots  corresponding  to  the 
short  period  and  long-period  (phugoid)  modes  of  motion.  This  calculation  is  performed 
using  the  eig{\  function  xnMATLAB  (UM99).  From  these  roots  the  modal  damping  ratio, 
natural  frequency,  and  damped  frequency  are  easily  determined  using  the  damp [] 
function  mMATLAB.  These  parameters  provide  a  measure  of  dynamic  stability  in 
motion  about  the  pitch  axis. 

9.1.3  Modal  approximations 

For  the  purposes  of  optimization,  a  simplified  method  of  approximating  the  modes  of 
motion  is  also  included.  This  is  desirable  to  prevent  unexpected  eigenvalues  (out  of  the  4 
x  4  eigenvalue  problem)  from  failing  the  optimization,  if  in  the  course  of  airplane 
variations  any  longitudinal  poles  become  real  and  not  complex  conjugate  as  assumed  a- 
priori.  The  short  period  approximation  employed  is: 

vn  =  {~Mj/2  (9-6) 

t  =  -{M&+Mq)l{2con)  (9-7) 

The  phugoid  approximation  is: 


=  41 g/u 


(9-8) 
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9.1.4  Control  response 

The  dynamic  response  of  the  aircraft  due  to  elevator  input  can  now  be  investigated  by 
incorporating  the  control  vector,  [5],  There  are  a  number  of  direct  methods  to  perform 
these  calculations  andMATLAB  already  possesses  two  functions  in  particular  which 
address  this  problem.  These  are  the  step[ ]  and  impulse]}  functions.  The  step[\  function 
returns  the  time-domain  control  response  to  an  elevator  step  input.  The  impulse[ ] 
function  returns  the  time-domain  control  response  to  an  elevator  impulse  input.  In  both 
cases,  the  non-dimensional  speed,  angle-of-attack,  pitch  rate,  and  pitch  angle  are 
calculated  and  plotted  over  time. 

9.2  Lateral-directional  dynamics 

Lateral-directional  dynamics  refers  to  the  aircraft’s  behavior  about  the  yaw  and  roll  axes. 

9.2.1  Linearized  equations  of  motion 

The  linearized  equations  of  motion  governing  the  lateral-directional  system  are  (SC98): 


up  =  YpP  +  YpP  +  gcosQJ  +  (Yr  -  U)r  +  YsS 

(9- 10a) 

P  - (4 / 4 y  =  Lpp  +  Lpp  +  Lrr  +LsS 

(9- 10b) 

~  (4  /4  )p  +  r  =  Nfip  +  NpP  +  Nrr  +NS8 

(9- 10c) 

0  =  P 

(9-10d) 

As  before,  these  are  written  in  the  form  of  linear  time-invariant  state  space  equations  as: 
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(9-n) 

where  the  4  x  4  longitudinal  airframe  plant  matrix,  [A],  is: 

(9-12) 

A,  ,=Yf/U  An  =Yr/U  .  A„=(g/U)  cosO  Au=(Yr-U)/U 

A2,  =g[i,  +At„(/„//j]  A,,  =g[l,  +  N„  (/„//,)] 

A-n  =  o  -4m=g[i,+w,(4/4)] 

^31  =  ^33  “  ^34  “  0  ^32  "  ^ 

A„  =G[Nf+L„(lJI,)}  Aa  =G[At,  +L,(4//J] 


4»=0  -4<4=G[4+Xr(4//,)] 

and  the  4x1  longitudinal  airframe  control  vector  is: 


B^Ys/V  4=G[ia+^(4/4)l 

*»  =  °  4=G[Ari+4(4//,)] 

and  the  longitudinal  state  vector  is: 

M=[A  P  <i>  rj 

The  constant  G  is  defined  as 


G  = 


IJ, 


U,-Il 


(9-13) 


(9-14) 


(9-15) 
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9.2.2  Eigenvalue  interpretation 

For  the  lateral-directional  problem,  the  expected  eigenvalues  (in  the  case  of  most  airplane 
designs)  consist  of  one  conjugate  pair  along  with  two  real  roots.  These  correspond  to  the 
Dutch-roll,  roll  and  spiral  response  modes,  respectively.  These  roots,  along  with  the 
dutch  roll  damping  ratio,  natural  frequency,  and  damped  frequency  are  determined  using 
the  same MATLAB  functions  used  in  the  longitudinal  case.  For  the  roll  mode  the  time 
constant  must  be  determined  separately.  This  relationship  is: 


9.2.3  Modal  approximations 

The  following  approximation  is  implemented  to  protect  against  problems  arising  from 
possible  disappearance  in  the  course  of  optimization  searches  of  the  Dutch-roll  complex- 
conjugate  roots  .  This  Dutch-roll  approximation  is  written  (SC98): 


(9-17) 


=  -0.5 


(9-18) 


9.2.4  Control  response 

The  dynamic  response  of  the  aircraft  due  to  aileron  or  rudder  inputs  is  determined  by 
incorporating  the  control  vector,  [2?].  TheMAll^AB  functions  used  in  the  longitudinal 
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case  are  used  here  as  well.  For  impulse  and  step  inputs  of  both  surfaces,  the  sideslip 
angle,  roll  rate,  bank  angle,  and  yaw  rate  are  calculated  and  can  be  plotted  over  time. 
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10.  DESIGN  OPTIMIZATION 

While  a  major  facet  to  this  work  was  the  development  of  the  design-oriented 
computationally-fast  preliminary  design  analysis  code,  the  primary  interest  was  to 
combine  this  capability  with  a  numerical  optimizer  to  create  a  design  synthesis  capability. 
This  chapter  presents  the  integrated  optimization  problem  (specifically,  the  list  of 
constraints  accounted  for)  and  describes  integration  with  the  MATLAB  (UM99) 
numerical  optimizer. 


10.1  The  Multivariable  Constrained  Nonlinear  Optimization  Problem 

The  general  nonlinear  optimization  problem  can  be  written  simply  as  (VA99): 


Minimize: 

objective  function 

(10-1) 

Subject  to: 

c,(jf)<0 

j  =  l,m 

inequality  constraints 

(10-2) 

Ceqt(x)=  0 

k  =  1,/ 

equality  constraints 

(10-3) 

Xj  <  X,  <  X " 

/  =  1,  n 

side  constraints 

(10-4) 

where  X  is  the  set  of  design  variables  used  for  optimization.  The  objective  function, 
F(X),  is  that  parameter  which  is  to  be  minimized  (i.e.  aircraft  weight).  The  inequality 
constraints  place  restrictions  on  the  absolute  or  relative  values  of  different  behavior 
measures  and  failure  modes  obtained  through  analysis  by  establishing  limits  of 
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acceptability  and  margins  of  safety.  The  equality  constraints  set  limitations  that  force  the 
specified  values  of  behavior  measures  or  combinations  of  design  variables  to  match 
exactly.  The  side  constraints  are  merely  lower  and  upper  bounds  on  the  design  variables 
themselves. 

10.2  Optimizer  selection  and  integration 

The  FMINCON  function  from  MA  TLAB  was  selected  to  perform  the  task  of  optimization 
for  this  research.  It  is  a  standard  nonlinear  programming  optimizer  based  on  quadratic 
programming.  A  part  of  the  MA  TLAB  Optimization  Toolbox,  this  function  finds  the 
constrained  minimum  of  a  function  of  several  variables.  Any  other  robust  nonlinear 
programming  optimizer  can  be  easily  integrated  with  the  present  analysis  code.  The 
present  choice  was  driven  by  its  straightforward  integration  with  the  MATLAB  analysis 
modules  and  its  good  performance.  By  creating  three  new  files  to  comply  with 
FMINCON  formatting,  the  linking  of  the  analysis  code  and  the  optimizer  was  completed. 
These  files  and  their  functions  are  described  in  the  following  table: 

TABLE  10,2,1  Optimization  Files 


NAME 

FUNCTION 

OPTlst.m 

Main  executable.  Loads  user  inputs  and  launches  the  optimizer. 

ANALfunlst.m 

Function  to  call  analysis  code.  Called  by  FMINCON. 

NONLCON.m 

Function  to  return  constraint  values.  Called  by  FMINCON. 
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10.3  Flow  of  Information 

The  following  figure  presents  the  flow  of  information  throughout  the  optimization 
process: 


Figure  10.1.  Basic  Optimization  Flow  Diagram 

Execution  starts  with  OPTlst.m,  where  the  code  begins  and  the  set  of  all  required  user 
inputs  are  read  and  forwarded  to  the  optimizer.  These  inputs  are  detailed  in  Chapter  2. 
Once  the  variables  and  constraints  to  be  used  are  sent  to  the  optimizer,  control  of 
execution  is  assumed  by  the  optimizer.  It  will  call  the  analysis  program  to  establish  a 
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baseline  set  of  values  for  the  constraint  vector  based  on  the  initial  values  for  the  design 
variables.  On  subsequent  iterations  it  will  converge  on  a  vector  of  design  variables  which 
satisfies  all  constraints  and  renders  the  objective  function  optimal.  In  the  course  of  the 
search  for  the  optimum  the  optimizer  varies  the  design  variable  vector  numerous  times, 
and  sends  it  to  the  analysis  code.  The  analysis  code,  in  turn,  returns  values  of  all 
constraints  and  of  the  objective  function  to  the  optimizer.  Once  convergence  has  been 
accomplished,  the  final  design  variable  vector  is  returned  and  the  optimization  is 
complete. 

10.4  Constraint  Definition 

For  optimization  purposes,  the  user  is  presented  with  a  minimum  of  53  inequality 
constraints  and  5  equality  constraints  from  which  to  formulate  various  problems.  A 
complete  list  of  these  constraints  may  be  found  in  Table  10.2. 

As  explained  in  Appendix  A,  the  files,  ConstraintsUsed.wkl  and  EQconsUsed.wkl ,  allow 
these  constraints  to  be  used  or  disregarded  based  on  the  user’s  inputs.  The  constraints  are 
grouped  as  follows: 
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TABLE  10.4.1:  Geometric  Constraints 


NUMBER 

DESCRIPTION 

g(V 

Inboard  edge  of  the  aileron  plus  the  aileron  span  must  be  less  than  the 
wing  semispan. 

g(2) 

The  inboard  edge  of  the  flap  plus  the  flap  span  must  be  less  than  the 
distance  to  the  inboard  edge  of  the  aileron. 

g(V 

The  horizontal  tail  span  must  be  less  than  the  wing  span. 

_ m 

The  vertical  tail  span  must  be  less  than  the  wing  span. 

g(V 

The  individual  elevator  span  must  be  less  than  the  semispan  of  the 
horizontal  tail. 

g(6) 

The  rudder  span  must  be  less  than  the  span  of  the  vertical  tail. 

_ ~g(7) 

The  aileron  chord  must  be  less  than  20%  of  the  wing  chord. 

_ g@) 

The  elevator  chord  must  be  less  than  half  the  horizontal  tail  chord. 

m. 

The  rudder  chord  must  be  less  than  half  the  vertical  tail  chord. 

g(10) 

The  horizontal  tail  must  be  located  on  the  fuselage. 

gOD 

The  vertical  tail  must  be  located  on  the  fuselage. 

g(‘V 

The  leading  edge  of  the  horizontal  tail  must  be  behind  the  trailing  edge 
of  the  wing.  j 

g(13) 

The  leading  edge  of  the  vertical  tail  must  be  behind  the  trailing  edge  of 
the  wing. 

g(14) 

The  center  of  gravity  must  be  located  on  the  fuselage. 

_ gOU 

The  main  gear  must  be  located  aft  of  the  nose  gear. 

g(16) 

The  center  of  gravity  must  be  located  aft  of  the  nose  gear. 

g(17) 

The  center  of  gravity  must  be  located  ahead  of  the  main  gear, _ 

g(l8) 

The  effective  aspect  ratio  of  the  vertical  tail  must  be  less  than  6.5  due  to 
limitations  on  stability  and  control  equations.  : 

i(m 

The  effective  aspect  ratio  of  the  vertical  tail  must  not  be  negative. 

g(20) 

The  aspect  ratio  of  the  horizontal  tail  must  be  less  than  10  due  to 
limitations  on  stability  and  control  equations. 

sou 

The  aspect  ratio  of  the  horizontal  tail  must  be  greater  than  zero, _ 

g(22) 

The  aspect  ratio  of  the  wing  must  be  less  than  8  due  to  limitations  on 
stability  and  control  equations. 

g(23) 

The  aspect  ratio  of  the  wing  must  be  greater  than  4  due  to  limitations  on 
stability  and  control  equations. 

g(24) 

The  static  margin  must  be  less  than  the  max  allowable  static  margin. 

g(25) 

The  static  margin  must  be  greater  than  the  min  allowable  static  margin. 
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TABLE  10.4.2:  Static  Stability  Constraints 


NUMBER 


g(26) 

1(27. j 
HI 
HI 
8(20) 
HI 


DESCRIPTION 


Require  Cyf  to  be  negative  for  lateral-directional  stability. 
Require  Clf  to  be  negative  for  lateral-directional  stability. 
Require  C„f  to  be  positive  for  lateral-directional  stability. 

Require  Cyf  to  be  greater  than  the  user  defined  minimum  value. 
Require  C,  to  be  greater  than  the  user  defined  minimum  value. 

_ P 

Require  C  to  be  less  than  the  user  defined  maximum  value. 

P 


TABLE  10.4.3:  Control  Surface  Deflection  Constraints 


NUMBER 

DESCRIPTION 

8(32) 

Required  elevator  for  static  control  must  be  less  than  defined  max. 

sim 

Required  elevator  for  static  control  must  be  greater  than  defined  min. 

8(34) 

Required  elevator  for  rotation  must  be  greater  than  defined  min. 

8(35) 

Required  aileron  for  static  control  must  be  greater  than  defined  min. 

8(36) 

Required  aileron  for  static  control  must  be  less  than  defined  max. 

8(37) 

Rudder  required  in  a  +0  crosswind  must  be  less  than  defined  max. 

8(38) 

Rudder  required  in  a  +/3  crosswind  must  be  greater  than  defined  min. 

8(39) 

Rudder  required  in  a  -(4  crosswind  must  be  less  than  defined  max. 

8(40) 

Rudder  required  in  a  -0  crosswind  must  be  greater  than  defined  min. 

8(41) 

Aileron  required  in  a  +0  crosswind  must  be  less  than  defined  max. 

8(42) 

Aileron  required  in  a  +0  crosswind  must  be  greater  than  defined  min. 

8(43) 

Aileron  required  in  a  -0  crosswind  must  be  less  than  defined  max. 

8(44) 

Aileron  required  in  a  -0  crosswind  must  be  greater  than  defined  min. 

84 


TABLE  10.4.4:  Dynamic  Stability  Constraints 


NUMBER 

DESCRIPTION 

_ g(45) 

The  phugoid  damping  ratio  must  be  greater  than  defined  min. 

The  short  period  damping  ratio  must  be  greater  than  defined  min. 

The  short  period  damping  ratio  must  be  less  than  defined  max. 

— 

The  short  period  natural  frequency  must  be  less  than  defined  max. 

HiB 

The  short  period  natural  frequency  must  be  less  than  defined  min.  | 

g(50) 

The  Dutch  roll  damping  ratio  must  be  greater  than  defined  min. 

sM 

The  roll  mode  time  constant  must  be  less  than  defined  max. 

TABLE  10.4.5:  Fuel  Weight  Constraints 


NUMBER 

DESCRIPTION  “1 

g(S2) 

The  amount  of  fuel  needed  for  the  mission  must  be  less  than  the  j 

maximum  fuel  capacity.  J 

Z(53) 

The.  amount  of  fuel  needed  must  not  be  negative.  j| 

The  following  mission  constraints  are  added  to  the  end  of  the  g-vector  constraints  given 
above.  Thus,  the  number  of  constraints  varies  depending  on  the  mission  profile. 


TABLE  10.4.6:  Mission  Performance  Constraints 


NUMBER 

DESCRIPTION 

gTO(J) 

The  balanced  field  length  for  takeoff  must  be  less  than  the  runway 
length. 

gTO(2) 

The  minimum  takeoff  speed  must  be  less  than  or  equal  to  the  desired 
takeoff  speed. 

gTO(3) 

The  power  required  for  takeoff  must  be  less  than  or  equal  to  the  power 
available. 

gTO(4) 

The  rate  of  climb  at  takeoff  must  be  greater  than  or  equal  to  desired  rate 
of  climb. 

gCR(l) 

The  rate  of  climb  at  cruise  must  be  greater  than  or  equal  to  the  desired 
rate  of  climb.  | 
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TABLE  10.4.6:  Mission  Performance  Constraints  (continued") 


gCR(2) 

The  power  available  at  cruise  must  be  greater  than  or  equal  to  the  power 
required. 

KCRfl) 

The  cruise  Mach  number  must  be  less  than  upper  Mach  limit. 

XCR(4) 

The  maximum  possible  speed  must  be  greater  than  the  max  wind  speed. 

gLT(l) 

The  power  available  at  loiter  must  be  greater  than  or  equal  to  the  power 
required. 

gLT(2) 

The  loiter  Mach  number  must  be  less  than  upper  Mach  limit. 

eMM 

The  maximum  possible  speed  must  be  greater  than  the  max  wind  speed. 

gLD(l) 

The  required  runway  length  for  landing  must  be  less  than  the  actual 
runway  length. 

mm&m 

The  landing  speed  must  be  less  than  the  specified  landing  speed. 

TABLE  10,4.7:  Equality  Constraints 

The  equality  constraints  are  formulated  in  the  geq-vz ctor,  separate  from  the  inequality 
constraints.  These  address  issues  of  ground  handling  and  stability  as  well  as  gross  weight 


convergence. 


NUMBER 

DESCRIPTION 

MMMI 

The  ground  handling  tip-angle  should  be  approximately  15  degrees. 

1 

The  longitudinal  ground-clearance  angle  should  be  approximately  15 
degrees. 

The  load  on  the  nose  gear  should  be  10%  of  aircraft  weight. 

mwom 

The  combined  load  on  the  main  gear  should  be  90%  of  aircraft  weight. 

Km 

The  calculated  weight  must  converge  to  the  guessed  weight. 

The  constraints  are  formulated  within  the  Allconstraints.m  module,  as  indicated  in 
Appendix  A.  Within  this  module  each  constraint  has  been  normalized  so  that  the  order  of 
each  entry  is  unity.  This  technique  is  recommended  whenever  formulating  a  problem 
such  as  this,  which  involves  many  multidisciplinary  constraints  with  different  relative 
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magnitudes,  as  it  improves  the  conditioning  of  the  optimization  problem  considerably 
(VA99).  One  example  might  be  to  require  the  power  required,  for  a  particular  mission 
leg,  be  less  than  the  power  available  in  the  form  of  an  inequality  constraint: 

^ 'required  ^  ^ 'available  (10 

and  in  the  form  the  optimizer  recognizes: 


P  -  P  <■  o 

required  x  available 


(10-6) 


and  in  normalized  form: 


P  IP  -1  <-  n 

required  (  *  avalable  x  ^  w 


(10-7) 
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11.  ANALYSIS  DEMONSTRATION 


This  chapter  verifies  the  relative  accuracy  of  the  analysis  module  by  comparing  the 
calculated  results  with  known  data  from  an  existing  general  aviation  aircraft.  Particular 
attention  has  been  given  to  the  areas  of  stability  and  control  and  mission  performance. 


11.1  Cessna  182  Baseline 

The  Cessna  182  was  selected  for  comparison,  as  there  was  substantial  data  available  from 
a  number  of  sources  (R095,  SI71).  Every  parameter  required  for  analysis  was  matched 
or  approximated  to  closely  replicate  the  actual  aircraft.  The  following  tables  give  the 
dimensions  of  the  major  design  variables  and  parameters  used: 


TABLE  11.1.2:  Cessna  182  Preassigned  Parameters 


PREASSIGNED 

PARAMETER 

VALUE 

Lo  (ft) 

25 

Ho  (ft) 

4.85 

Hlo  (ft) 

4.8  1 

H2o  (ft) 

m 

HBCYo  (ft) 

E19NK 

HFCYo  (ft) 

3.5 

Hgearo  (ft) 

4.5 

HNOSEo  (ft) 

2.7 

LBCYo  (ft) 

12.83 

LFCYo  (ft) 

3.12 

LMHo  (ft) 

14.5 

Rio (ft) 

0.73 

WFUSo  (ft) 

3.6 

WBCYo  (ft) 

3.1 

WFCYo  (ft) 

3.6 

WNOSEo  (ft) 

2.8 

CGaco  (ft) 

5 

CGaviono  (ft) 

6  ■ 

CGctrlo  (ft) 

10  j 

CGeleco  (ft) 

6 

CGengo  (ft) 

msmm 

CGfuelo  (ft) 

■ 

CGfurno  (ft) 

CGhydro  (ft) 

10 

Slender 

5 

Option 

1 

SA  (deg) 

■ 

1.5 

0.15 

o  i 

IT  AIL  (deg) 

-3 

SAvt  (deg) 

10 

EngineDref  (in) 

7 

EngineLref  (in) 

7 

CDO 

0.0279 

CF 

0.003 

PRE  AS  SIGNED 
PARAMETER 

VALUE 

cLmaxClean 

1.585 

EnginDragFactor 

1.1 

EFF 

ETAV 

0.85  1 

groundeffect 

0.7 

LDmax 

12 

Oswald 

0.7 

AnPower 

1 

enginePowerref 

1 

Nen 

1 

272 

1 

Ncrew 

1 

mimmm 

200 

200 

300 

Growth 

1 

RoskamA 

0.8222  I 

RoskamB 

0.805 

RaymerA 

2.36 

RaymerC 

-0.18 

HtHv 

0 

N1  (g’s) 

4.5 

Nstrut 

2 

6 

Nt 

Nz  (g’s) 

Pdelta  (psi) 

0 

Vpr  (ft3) 

0 

Wl(lb) 

2800 

Eps 

0.05 

ZA  (ft) 

1.67 

ZT  (ft) 

ZV  (ft) 

2.82  I 
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TABLE  11,2:  Cessna  182  Preassigned  Parameters  (continued-) 


CDA2DW  (1/deg) 

0 

CDFlapRatio 

0.1 

CDLGratio 

0.1 

cFriction 

0.006 

CLA2DT  (1/deg) 

0.1 

CLA2DW  (1/deg) 

0.103 

CLAFUS  (1/deg) 

0.0525 

CLmax 

2.08 

ZW  (ft) 

-1.835 

ALPHA  (deg) 

0 

GAMMA  (deg) 

0 

COSXZ 

0.9981 

SINXZ 

0.06105 

UpperMach 

0.25 

WindMax  (ft/s) 

100 

GRAVIT  (ft/s2) 

32.2 

The  above  values  are  a  combination  of  published  data  and  approximations  based  on  the 
dimensions  of  Figure  2.1. 


11.2  Cessna  182  Mission  Profile 

In  order  to  obtain  accurate  results  for  mission  sizing  a  typical  mission  profile  was 
developed.  General  aviation  aircraft,  such  as  the  Cessna  182,  are  used  primarily  for 
recreational  flying  or  flying  from  point  A  to  point  B.  As  such,  the  mission  profile 
developed  for  this  analysis  consists  of  takeoff  from  sea  level,  climb  to  a  cruising  altitude 
of  3,000  feet,  cruise  out  900  miles,  descend  and  land  at  sea  level.  The  results  obtained 
using  this  simplified  mission  profile  closely  match  published  performance  data. 


11.3  Static  Stability  and  Control 

Much  of  the  static  and  dynamic  stability  analysis  is  focused  on  the  determination  of  the 
non-dimensional  stability  derivatives.  The  analysis  performed  on  this  aircraft  shows  that 
the  analysis  module  closely  approximates  all  of  the  desired  stability  derivatives.  The 
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resulting  derivatives  for  both  the  longitudinal  and  lateral-directional  modes  are  presented 
against  published  data  in  the  following  table.  Again,  the  analysis  methods  are  • 
approximations  and  are  not  perfect,  however  the  results  provide  valuable  insight  at  this 
stage  of  design. 

TABLE  1 1.3,1:  Non-dimensional  Stability  Derivative  Comparison 


Derivative 

Cessna  182  Data 

Results 

%  Difference 

Cl 

0.307 

0.274678 

-11.77% 

cD 

0.032 

0.031226 

-2.48% 

4.41 

4.604820 

4.23% 

^Da 

0.121 

0.111509 

-8.51% 

-0.613 

-0.673745 

9.02% 

C La 

1.7 

1.833249 

7.27% 

• 

3.9 

3.330721 

-17.09% 

Cmq 

-12.4 

-13.235016 

6.31% 

r 

^L5e 

0.43 

0.409288 

-5.06% 

c 

^m5s 

-1.122 

-1.272926 

11.86% 

% 

-0.393 

-0.260722 

-50.74% 

c„ 

-0.0923 

-0.084589 

-9.12% 

Cnp 

0.0587 

0.052965 

-10.83% 

c» 

-0.075 

-0.035188 

-113.14% 

-0.484 

-0.467007 

-3.64% 

C»P 

-0.0278 

-0.040513 

31.38% 

C>, 

0.214 

0.195577 

-9.42% 

C', 

0.0798 

0.086677 

7.93% 

C»r 

-0.0937 

-0.094119 

0.45% 

0.229 

0.195850 

-16.93% 

C„sA 

-0.0216 

-0.016494 

-30.96% 
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TABLE  11.3.1:  Non-dimensional  Stability  Derivative  Comparison  (continued-) 


CysR 

0.187 

0.187369 

0.20% 

CtSx 

0.0147 

0.014747 

-0.46% 

-0.0645 

-0.067091 

7.01% 

Though  actual  data  concerning  control  surface  deflection  requirements  was  not  found,  the 
results  of  the  control  analysis  were  within  typical  values  for  this  type  of  aircraft.  The 
following  table  summarizes  these  results: 

TABLE  11.3.2:  Control  effectiveness  results 


CONDITION 

DEFLECTION  REQUIRED 

Static  Elevator  Control 

8e  =  -21.05  deg 

Elevator  Control  for 

Takeoff  Rotation 

5e  =  -33.46  deg 

Aileron  Control  for 

Static  Roll  Rate  of  5  deg/s 

8a  =  9.85  deg 

Control  in  a  Crosswind 
((3  =  10  deg) 

8r  = -6.23  deg  8a  =  5.68  deg 

11.4  Dynamic  Modes  of  Motion 

The  dynamic  modes  of  motion  are  characterized  by  their  response  roots,  natural 
frequencies,  and  damping  ratios.  Comparing  these  results  with  the  known  roots  of  the 
actual  aircraft  indicates  that  the  analysis  module  closely  approximates  the  actual  dynamic 
stability  of  the  given  design.  For  this  comparison,  the  analysis  module  has  been  allowed 
to  calculate  its  own  values  for  the  moments  of  inertia.  These  calculations  are  highly 
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dependent  on  the  selection  of  an  appropriate  radius  of  gyration  (RA92  page  444),  which 
were  modified  for  this  particular  case. 


TABLE  11,4.1:  Dynamic  Modes 


Cessna  182  Data 

Results 

%  Difference 

Short  Period 

■ 

Roots 

-4.13  +  4.39 

-4.22445  +  4.92147 

con  (rad/s) 

6.027 

5.7209 

'  -5.35% 

_ c 

0.685 

0.53307 

-28.50% 

Phugoid 

Roots 

-0.02092  +  0.1797 

-0.01227  +  0.18053 

on  (rad/s) 

0.181 

0.2069 

12.52% 

_ c 

0.116 

0.07852 

-47.73% 

Dutch  Roll 

Roots 

-0.6858  +  3.306 

-0.13312  +  3.92876 

on  (rad/s) 

3.377 

3,9101 

99.99% 

_ £ _ , 

0.203 

0.03386 

-499.53% 

Roll  Mode 

| 

Root 

-12.43 

-2.05062 

-506.16% 

x  (1/s) 

0.080 

0.48766 

83.60% 

Spiral  Mode 

Root 

-0.01095 

-0.03576 

69.38%  | 

11.5  Performance  Specifications 

The  results  in  this  section  are  a  product  of  a  series  of  power  and  weight  optimization  test 
cases.  For  this  analysis  the  propeller  efficiency  was  assumed  to  be  0.85.  The  brake- 
specific-fuel  consumption  was  set  at  0.4/hr  for  the  loiter  legs  and  0.5/hr  for  the  cruise  legs 
as  suggested  by  RA92,  page  19.  Using  the  defined  mission  profile  the  performance 


results  are  as  follows: 
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TABLE  11.5,1:  Performance  Specifications 


Cessna  182  Data 

Results  | 

Gross  Weight  (lb) 

2800 

2774.6 

Empty  Weight  (lb) 

1580 

1580.01 

Pmax  (hp) 

230 

224.18 

Fuel  Used  (lb) 

360 

373.79 

Payload  Weight  (lb) 

820 

820 

Takeoff  Speed  (ft/s) 

96.8 

96.60 

Max  Speed  (ft/s) 

245 

225.88  | 
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12.  TEST  CASES  AND  RESULTS 


Results  of  integrated  design  optimization  studies  of  a  general  aviation  airplane  are 
presented  in  this  chapter.  These  studies  are  conducted  to  gain  initial  insights  and  better 
understanding  of  how  static  and  dynamic  stability  concerns,  combined  with  mission 
performance  and  sizing  issues,  affect  the  resulting  aircraft  design.  The  chapter  opens  with 
a  definition  of  the  constraints,  objectives  and  design  variables  used  in  the  test  cases 
discussed.  The  figures  presented  in  each  section  present  a  rough,  graphical  representation 
of  the  resulting  designs.  The  axis  units  are  in  feet. 

12.1  Side  Constraints  and  Behavior  Constraints 

Lower  and  upper  bounds  on  design  variables,  and  limits  on  performance,  static  stability 
and  control  as  well  as  dynamic  stability  are  listed  in  the  following  tables.  The  values  for 
the  constraints  on  the  dynamic  flight  mechanics  poles  have  been  taken  from  requirements 
given  by  MIL-F-8785C. 

TABLE  12,1,1:  Side  Constraints  on  design  variables 


DV 

Lower 

Upper 

B  (ft)  wing  span 

10 

60 

CROOT  (ft)  wing 
root  chord 

1 

10 

TR  wing  taper 
ratio 

0.5 

1 

DIH  (deg) 

0 

10 

DV 

Lower 

Upper 

Xlevt  (ft)  x 
location  of  LE  of 
vertical  tail 

10 

30 

BA  (ft)  aileron 
span 

1 

20 

CA  (ft)  aileron 
chord 

0.5 

10 

YI  (ft)  y-location 
inboard  end  of 
aileron 

1 

20 
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TABLE  12.1.1:  Side  Constraints  on  design  variables  (continued) 


Xlewing  (ft)  x 
location  of  wing 

LE 

3 

20 

BE  span  of 
elevator(ft) 

1 

25 

BT  (ft)  span  of 
horizontal  tail 

1 

50 

CHE  chord  of 
elevator(ft) 

1 

5 

Crtail  (ft)  root 
chord  of  horizontal 
tail 

1 

10 

BR  span  of 
rudder  (ft) 

1 

20 

TRT  Horizontal 
tail  taper  ratio 

0.5 

1 

CR  chord  of 
rudder  (ft) 

1 

5 

Xletail  (ft)  x 
location  of 
horizontal  tail  LE 

10 

30 

LB  (ft)  length  of 
body 

20 

35 

BV  (ft)  span  of 
vertical  tail 

1 

20 

Pmax  (lip)  max 
engine  power  at 
sea  level 

10 

500 

Crvt  (ft)  Root 
chord  of  vetical 
tail 

1 

10 

Wguess  (lb)  take¬ 
off  gross  weight 

100 

5000 

TRvt  taper  ratio  of 
vertical  tail 

0.5 

1 

XM  x  location  of 
CG  (ft) 

4 

20 

TABLE  12.1.2:  Stability  and  Control  Behavior  Constraints* 


Constraint 

Limit 

SMmax  (static 
margin) 

3 

SMmin  (static 
margin) 

0.02 

CYBo  (cYbeta) 

-1 

CLBo  (clbeta) 

-0.2 

CNBo  (cnbeta) 

0.3 

DEmax  (deg) 
(elevator  travel) 

25 

DEmin  (deg) 
(elevator  travel) 

25 

DAmax  (deg) 
(aileron  travel) 

10 

D  Amin  (deg) 
(aileron  travel) 

10 

Constraint 

Limit 

DRmax  (deg)  (rudder  travel) 

25 

DRmin  (deg)  (rudder  travel) 

25 

PhDmin  (phugoid  damping) 

0.04 

SPDmin  (short  period  damping) 

0.3 

SPDmax  (short  period  damping) 

2 

SPnatmax  (rad/s)  (short  period  natural  frequency) 

3.6 

SPnatmin(rad/s)  (short  period  natural 

Frequency) 

0.28 

DRdmin  (dutch  roil  damping) 

0.08 

Trollmax(sec)  (roll  root  time  constant) 

1.4 

•TIT  M  VI  WVtiXVlO  VVUUVA  O  Kll  A 

study  the  effect  on  the  resulting  designs. 


■  to 
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12.2  Case  1:  Sizing  for  Mission  and  Performance 

The  purpose  of  this  simple  case  was  to  test  the  functionality  of  the  combined  optimizer- 
analysis  program.  The  following  mission  profile  was  used  for  this  analysis: 


TABLE  12,2,1:  Sizing  Mission  Definition 

(The  present  synthesis  capability  allows  any  number  of  mission  segments  in  the  mission 
definition') 


Altitude/Dh  (ft) 

1000 

3000 

3000 

3000 

3000 

3000 

0 

Distance/Time  (miles) 
or  (min) 

0 

0 

200 

10 

200 

10 

0 

BSFC  (lbf/hr/hp) 

0.4 

0.4 

0.4 

0.5 

0.4 

0.5 

0.4 

Npropeller  (prop 
efficiency) 

0.8 

0.8 

0.8 

0.7 

0.8 

0.7 

0.8 

Airspeed  (ft/s) 

100 

0 

210 

130 

220.1 

130 

75 

Throttle 

- — - 1 

1 

0.85 

0.8 

0.7 

0.8 

0.7 

0.4 

Runway  length  (ft) 

1450 

0 

0 

0 

0 

0 

5000 

ROC  Req.  (fps)  rate  of 
climb 

10 

10 

10 

10 

10 

10 

200 

Obstacle  ht  (ft)  for  t/o 
and  landing 

50 

0 

0 

0 

0 

0 

50 

Takeoff 

Climb 

Cruise 

Loiter 

Cruise  .! 

Loiter 

Landing 

Mission  segment 

1 

2 

3 

4 

5 

6 

7 

Two  different  initial  designs  were  tried,  and  the  objective  function  to  be  minimized  was 
the  aircraft  gross  take-off  weight.  The  design  variables  used  were  the  wing  span,  the 
maximum  power,  and  the  take-off  gross  weight.  Constraints  for  each  mission  leg  were 
imposed,  guaranteeing  enough  power  at  each  segment,  service  ceiling,  and  take-off  and 
landing  distances.  An  equality  constraint  is  used  to  force  a  match  between  the  guessed 
weight  (at  the  beginning  of  a  new  mission  analysis)  and  the  resulting  weight  (after  fuel 
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weight  is  calculated  for  the  mission).  Since  the  new  capability  allows  for  any  number  of 
mission  segments  in  a  mission,  and  since  each  mission  segment  adds  performance 
constraints  to  the  set  of  constraints,  the  size  of  the  constraint  vector  varies  depending  on 
the  number  of  mission  legs  used.  This  test  case  is  defined  by: 

Design  Variables  Used:  B,  Pmax,  Wguess 
Constraints  Used:  Cf52-73);  Ceq( 5) 

Objective  Function:  Minimize  Wcalc 

The  unused  design  variables  and  the  pre-assigned  parameters  were  set  equal  to  the 
Cessna  182  values.  This  practice  is  maintained  for  subsequent  cases,  as  well.  The  initial 
designs  were  started  from  extremes  on  either  side  of  the  resulting  design.  Under  the  same 
restrictions,  the  optimum  designs  resulting  from  both  initial  designs  were  nearly  identical, 
and  Table  12.2.2  summarizes  the  results.  Note  how  the  rate  of  climb  during  the  second 
cruise  leg  drove  the  amount  of  power  required  to  meet  this  constraint. 


TABLE  12.2.2:  Case  1  Results  (Design  Variables 
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Figurel2.1.  Case  1  Design  Plot 


TABLE  12.2,3:  Case  1  Results  vs.  Requirements  (Behavior  Constraints') 


Constraint 

Required 

Result 

Takeoff  Distance  (ft) 

1450 

1403.57 

Takeoff  Speed  (ft/s) 

100 

70.75 

Power  Req.  @  Takeoff  (hp)  * 

4.3980 

51.2925 

ROC  (8),  Takeoff  (ft/s) 

10 

11.76 

ROC  @  Cruise  (legl  /  leg2)  (ft/s) 

10/10 

10.78  / 10.00 

Power  (a)y  Cruise  (legl  /  leg2)  (hp)  * 

22.35/22.19 

37.54/35.35 

Power  (8)  Loiter  (legl  /  leg2)  (hp)  * 

18.97/18.27 

28.74/22.19 

Landing  Distance  (ft) 

5000 

3038.85 

Landing  Speed  (ft/s) 

75 

41.69 

*  Indicates  a  calculated  requirement 


12.3  Case  2:  Designing  with  Added  Static  Stability  and  Control  Constraints 
12.3.1  Initial  Test  Case 

This  case  focuses  on  obtaining  a  design  that  meets  the  constraints  imposed  on  the 
aircraft’s  static  stability  and  controllability.  This  is  in  addition  to  the  mission 
performance  and  sizing  restrictions  used  in  Case  1.  Static  stability  and  control  are 
primarily  functions  of  the  lifting  surfaces  (wing,  horizontal  tail,  and  vertical  tail),  and  the 
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control  surfaces  (elevator,  ailerons,  and  rudder),  and  center  of  gravity  location.  As  such, 
the  surface  defining  design  variables  have  been  included  for  this  case.  In  Test  Case  2 
here  it  is  assumed  that  the  span  of  the  entire  elevator  is  equal  to  the  span  of  the  horizontal 
tail.  The  same  assumption  was  made  concerning  the  span  of  the  rudder  and  the  span  of 
the  vertical  tail. 


Initial  attempts  to  synthesize  an  airplane  for  this  case  were  hampered  by  the  optimizer’s 
inability  to  resolve  the  requirement  on  the  amount  of  elevator  required  for  takeoff 
rotation  (SF  ^  )  with  the  requirement  for  a  desirable  static  margin.  For  this  reason,  the 


center  of  gravity  position  was  also  added  as  a  design  variable.  This  case  is  defined  by: 

Design  Variables  Used:  B ,  BT,  BV,  BA,  CA,  CHE,  CR,  Pmax,  Wguess,  XM 
Constraints  Used:  C(l,  3,  4,  7-9,  16-44,  52-73);  Ceq( 5) 

Objective  Function:  Minimize  Wcalc,  SELEV,  SR,  and  SAileron 
The  side  constraints  and  behavior  constraints  for  this  case  have  been  unchanged.  The 
mission  profile  used  is  the  same  mission  defined  in  Chapter  1 1  for  the  purposes  of 
matching  the  Cessna  1 82  performance  specifications.  The  initial  design  sent  to  the 
optimizer  and  the  resulting  design  are  presented  in  the  following  tables. 
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Figure  12.2.  Case  2  Design  Plot 


TABLE  12.3.2:  Case  2  Results  vs.  Requirements  (Behavior  Constraints! 


Constraint 

Required 

Result 

Static  Margin 

0.02  <  SM  <  3 

0.0412 

-1<C„<0 

-0.2250 

c; 

-0.2  <C,  <0 

-0.0803 

c „ 

0<C„  <0.3 

nfi 

0.0267 

(^g) 

-25<8e<25 

-4.1880 

8f  (deg) 

-25<Se<25 

-21.792 

8 A  (deg) 

A  static  v  07 

-10<SA<10 

6.4145 

8a  (deg) 

A  crosswind  X  0/ 

-io<SA<io 

9.8503 

SR  (deg) 

Kcrossswlnd  V 

-25<8r  <  25 

-24.1995 

This  result  was  completed  successfully  and  met  all  the  requirements  imposed.  A 
comparison  of  this  result  to  the  dimensions  of  the  Cessna  182  shows  that  airplane 
synthesized  here  is  nearly  the  same  as  the  Cessna  182. 
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12.3.2  Variations  of  Case  2 

This  section  summarizes  a  series  of  variations  to  the  requirements  imposed  on  Case  2. 
The  question  was  asked,  what  happens  to  the  design  when  the  available  control  surface 
deflection  is  increased  or  reduced?  This  question  was  studied  by  imposing  control 
surface  deflection  limits  of  30,  20,  and  10  degrees  on  each  control  surface  simultaneously 
in  a  sequence  of  synthesis  runs.  As  was  expected,  the  larger  the  amount  of  available 
deflection,  the  less  control  surface  area  was  needed.  The  following  results  represent  the 
observations  made  for  this  series  of  runs.  Note  how  the  elevator  travel  for  take-off 
rotation  and  the  rudder  travel  for  cross-wind  landing  drive  the  designs.  The  same  initial 
design  as  in  Case  2  above  was  used. 


TABLE  12.3,3;  Effects  of  control-deflection  travel-limits  on  final  design  (Design 
Variables) 


DV 

Initial 

30  deg 
travel  limit 

20  deg 
travel  limit 

10  deg 
travel  limit 

B  (ft) 

30 

33.4010 

33.4010 

33.6376 

BT  (ft) 

10 

9.6312 

11.6559 

15.3558 

B  V  (ft) 

5 

4.7598 

5.6854 

8.0860 

BA  (ft) 

2 

5.3133 

6.7373 

8.1689 

CA  (ft) 

0.5 

0.5 

0.5 

0.5 

CHE  (ft) 

1 

1.0 

1.0 

1.0 

CR  (ft) 

j~  1 

1.0 

1.0 

1.0 

Pmax  (lip) 

50 

238.6628 

240.7075 

232.5183 

Wguess  (lb) 

1000 

2715.0210 

2715.0210 

2715.0210 

XM  (ft)  CG 
location 

6 

7.6984 

8.0013 

8.5394 
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TABLE  12.3.4:  Effects  of  control-deflection  travel-limits  on  behavior  constraint  values 


Constraint 

Required 

30  deg 

20  deg 

10  deg 

Static  Margin 

0.02  <  SM<  3 

0.0200 

0.0200 

0.0200 

->  <c„«> 

-0.2034 

-0.2842 

-0.5155 

c 

-0.2  <C,  <0 

9 

-0.0850 

-0.0912 

-0.1083 

0<C„  <0.3 

nfi 

0.0235 

0.0556 

0.1458 

(dcS) 

Limit  varies 

-2.4370 

-1.9311 

-1.4192 

Limit  varies 

-30.0000 

-20.0000 

-10.0000 

SaMIc  (deg) 

Limit  varies 

6.1828 

7.2635 

7.1485 

<deS> 

Limit  varies 

11.9434 

9.7163 

9.2138 

(de8} 

Limit  varies 

-30.0000 

-20.0000 

-10.0000 

12.4  Case  3:  Designing  with  Added  Dynamic  Stability  Constraints 

The  cases  from  section  12.3.1  and  12.3.2  focused  only  on  static  stability  and  control 
requirements.  This  section  extends  these  same  cases  into  the  realm  of  dynamic  stability. 
The  behavior  constraints  on  the  short  period,  phugoid,  Dutch  roll,  and  roll  modes  of 
motion  now  had  to  be  added  to  the  list  of  constraints.  No  design  variables  were  added  for 
this  case.  Thus,  this  case  is  defined  by: 

Design  Variables  Used:  B,  BT,  BV,  BA ,  CA,  CHE ,  CR,  Pmax,  W, XM 
Constraints  Used:  C(l,  3,  4,  7-9,  16-73);  Ceq(S) 

Objective  Function:  Minimize  Wcalc,  SELEV,  SR,  and  SAileron 
This  side  constraints  and  behavior  constraints  for  this  case  have  been  unchanged  except 
as  indicated  by  each  particular  case.  The  mission  profile  used  is  the  same  mission 
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defined  in  Chapter  1 1  for  the  purposes  of  matching  the  Cessna  182  performance 
specifications.  Presented  in  the  following  tables  are  the  new  designs  and  results 
obtaining  using  the  same  three  cases  for  control  surface  travel  limits  as  in  section  12.3.2. 
The  static  stability  results  are  used  to  allow  comparison  between  the  results  and  those  of 
section  12.3.2.  In  Table  12.4.2,  the  values  in  parentheses  indicate  the  value  found  for  the 
original  designs  of  Case  2.  Due  to  the  similarities  between  this  case  and  Case  2,  a  design 
plot  comparison  is  not  given. 

TABLE  12,4,1:  Case  3  Resulting  Designs  ("Design  Variables) 


DV 

Initial 

30  deg 

20  deg 

10  deg 

B  (ft) 

30 

38.2492 

34.1341 

34.1341 

BT  (ft) 

10 

10.9719 

12.1839 

15.7278 

BV  (ft) 

5 

4.1859 

4.1943 

4.3047 

BA  (ft) 

2 

1.5388 

2.2737 

4.5499 

CA  (ft) 

0.5 

0.5 

0.5 

0.5 

CHE (ft) 

1 

1.0 

1.0 

1.0 

CR  (ft) 

1 

1.0 

1.0 

1.0 

Pmax  (lip) 

50 

209.0204 

280.6459 

242.6341 

Wguess  (lb) 

1000 

2715.0210 

2715.0210 

2715.0210 

XM  (ft) 

6 

7.6784 

7.9501 

8.4042 

TABLE  12,4.2:  Case  3  Results  vs.  Requirements  (Behavior  Constraints') 
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TABLE  12.4,2:  Case  3  Results  vs.  Requirements  (Behavior  Constraints")  ('continued"! 


c, 

b 

-0.2  <C,  <0 

V 

-0.0704 

-0.0815 

-0.0822 

cn 

"0 

0<C„  <0.3 

nP 

0.0000 

0.000361 

0.0000001 

S*„  (deg) 

Limit  varies 

-2.3636 

-1.9801 

-2.5585 

5e^,  (deg) 

Limit  varies 

-30.0000 

-19.9999 

-10.0000 

SA  (deg) 

^static  v  07 

Limit  varies 

0.0495  ; 

i 

0.1022 

0.2066 

(dc8} 

Limit  varies 

30.0000 

i 

20.0000 

10.0000 

(des> 

Limit  varies 

-1.6658 

-1.8666 

-1.9675 

Note  how,  again,  the  limits  on  control  surface  travel  (elevator  and  rudder)  drive  the 
design.  But  now  additional  constraints,  due  to  requirements  on  frequency  and  damping 
of  airplane  dynamic  modes,  become  active.  Most  noticeable  is  the  importance  of  short- 
period  damping  coefficient.  Also  note  the  variation  of  Static  Margin  with  control  surface 
travel  limit.  This  is  different  from  the  cases  presented  in  section  12.3.2,  where,  in  an 
effort  to  minimize  control  surface  travel  the  optimization  always  drove  the  static  margin 
to  a  minimum. 


12.5  Case  4:  Added  Fuselage  Sizing  /  Surface  Positioning 

The  final  case  presented  here  is  an  attempt  to  add  aircraft  fuselage  length  and  positions  of 
the  lifting  surfaces  to  the  set  of  design  variables.  Also  added  are  positions  of  landing 
gear  components,  the  length  of  the  main  landing  gear,  the  center  of  gravity  location,  and 
constraints  on  ground  handling  stability.  The  dimensions  of  the  wing,  horizontal  tail  and 
vertical  tail  are  set  constant  to  the  Cessna  182  values.  The  width  and  height  dimensions 
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of  the  fuselage  were  scaled  according  to  the  length  of  the  fuselage.  This  case  is  defined 
by: 

Design  Variables  Used:  Xlewng,  Xletail,  Xlevt,  LB,  CGmgr,  Lm,  CGngr,  Pmax,  Wguess,  XM 
Constraints  Used:  C(10-17,  24-44,  52-73);  Ceq(\-5) 

Objective  Function:  Minimize  a  combination  Wcalc  (min  weight)  and  LB  (min  size) 
The  side  constraints  and  behavior  constraints  for  this  case  have  been  unchanged  from 
Case  3  except  as  indicated.  The  mission  profile  used  is  the  same  mission  defined  in 
Chapter  1 1  for  the  purposes  of  matching  the  Cessna  182  performance  specifications.  The 
following  tables  present  the  resulting  design  and  the  subsequent  results.  Note  that  Table 
12.5.2  contains  control  surface  sizing  results.  A  second  case,  similar  to  Case  2,  was  run 
using  the  results  of  the  current  case  to  size  the  control  surfaces  based  on  static  stability 
criteria. 


TABLE  12,5,1:  Case  4  Resulting  Design  (Design  Variables! 


DV 

Initial 

Result 

Xlewng  (ft) 

5.5 

6.2560 

Xletail  (ft) 

21 

13.9794 

Xlevt  (ft) 

21 

14.0252 

LB  (ft) 

25.75 

18.0000 

CGmgr  (ft) 

9.8 

8.4914 

CGngr  (ft) 

3.92 

1.6646 

Pmax  (lip) 

50 

239.3645 

Wguess  (lb) 

1000 

2715.0210 

XM  (ft) 

6 

7.8087 

BA  (ft) 

2 

2.2402 

CA  (ft) 

0.5 

0.5 

CHE  (ft) 

1 

1 

CR  (ft) 

1 

i 

Figure  12.4.  Case  4  Design  Plot 


TABLE  12.5.2:  Case  4  Results  vs.  Requirements  (Behavior  Constraints) 


Constraint 

Required 

Result 

Tipangle  (deg) 

15 

15.0000 

Ground  Clearance  (deg) 

15 

15.0000 

Nose  Gear  Loading 
(%  Wguess) 

10% 

10.00% 

Main  Gear  Loading 
(%  Wguess) 

90% 

90.00% 

Static  Margin 

0.02  <  SM  <  3 

0.0251 

.i<C^<o 

-0.2257 

-0.2  <C,  <0 
b 

-0.0826 

0  <C„  <0.3 

0.0189 

(deg) 

Limit  varies 

-5.6794 

SF  (deg) 

^rotate  V 

Limit  varies 

-19.2481 

5aMIc  (^g) 

Limit  varies 

0.0879 

(dcg) 

Limit  varies 

20.0000 

(de8) 

Limit  varies 

-4.6261 
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13.  CONCLUSION 


The  development,  validation,  and  initial  testing  of  a  new  capability  for  design  synthesis 
of  general  aviation  airplanes  has  been  described.  The  new  capability  is  unique  in  its 
integration  of  mission  analysis  and  performance  considerations  with  static  stability  and 
control  and  dynamic  stability  requirements.  The  key  to  the  new  development  is  a 
collection  of  very  fast,  computationally  efficient,  techniques  for  aerodynamic,  inertial 
(weight  and  balance),  performance,  mission,  as  well  as  static  and  dynamic  stability  and 
control  analysis.  This  fast  analysis  makes  it  possible,  using  standard  gradient-based 
nonlinear  programming  techniques,  to  synthesize  optimum  airplane  configurations  with 
tens  of  design  variables  and  tens  of  constraints.  Design  variables  which  define  the  overall 
shape  of  the  airplane,  including  size  and  location  of  tail  surfaces  and  control  surfaces,  are 
allowed  to  change  simultaneously  in  an  effort  to  meet  all  constraints  while  minimizing 
weight  or  size  or  combinations  of  those.  Other  objective  functions,  made  of  combination 
of  any  behavior  constraints  included  in  the  present  capability,  can  be  easily  included. 
Through  the  course  of  utilizing  this  new  capability,  a  number  of  areas  were  noticed  which 
could  benefit  from  some  minor  improvements: 

a.  Addition  of  a  graphical  user  interface.  The  use  of  Lotus  1-2-3  worksheets  allows  this 
program  to  easily  be  extended  to  a  Visual  Basic-type  GUI.  This  would  allow  the  user 
to  define  and  run  a  problem  much  more  quickly. 
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b.  A  number  of  non-physical  results  may  arise  if  the  appropriate  constraints  and 
conditions  are  not  properly  imposed.  Preferably  the  program  should  safeguard 
against  such  problems  without  adding  undue  problems  for  the  user.  One  example  can 
be  noticed  in  Case  4.  While  the  fuselage  was  minimized,  no  constraint  exists  to 
ensure  that  the  internal  fuselage  volume  remains  large  enough  for  crew,  passengers, 
and  payload. 

c.  Redundancies  in  the  output  files  need  to  be  addressed.  The  four  current  output  files 
could  easily  be  reduced  to  one  or  two. 

d.  The  singular  module  that  allows  the  user  to  plot  a  graphical  picture  of  the  final  design 
has  not  yet  been  linked  directly  to  the  entire  code.  This  would  be  preferable  to  having 
to  run  this  module  separately. 

Future  developments  of  the  new  capability  call  for: 

a.  Extension  to  more  families  of  airplanes,  including  small  UAVs; 

b.  Thorough  studies  of  the  interaction  of  performance  and  mission  requirements  with 
static  and  dynamic  stability  and  control  requirements  with  increasing  numbers  of 
constraints  and  design  variables;  and 

c.  Addition  of  active  control  systems,  and  development  of  a  capability  for  combined 
optimal  design  of  air  vehicle  and  its  active  control  system. 

In  its  present  form  the  new  capability  is  a  valuable  addition  to  the  computer  design  tools 

available  for  conceptual  design  of  general  aviation  airplanes.  It  will  be  very  useful  for 

educational  purposes,  especially,  in  undergraduate  and  graduate  airplane  design  courses. 
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APPENDIX  A 

Analyze.™  PROGRAM  INFORMATION 


A.l  Introduction 

This  appendix  contains  user  information  for  Analyze. m,  the  analysis  code  developed  for 
optimization  in  this  thesis.  The  program  subroutines  are  briefly  described  in  the  order  in 
which  they  are  executed.  This  program  utilizes  the  global  nature  of  variables  and 
parameters  within  MATLAB  (UM99). 


A.2  Program  Subroutines 

The  main  program.  Analyze,  m,  calls  the  following  subroutines,  presented  in  order  of 


appearance,  to  perform  the  indicated  functions. 


NAME 

FUNCTION  | 

Geometry,  m 

Read  and  assign  input  files.  Perform  basic  geometric  II 

calculations. 

Fuselage.m 

Scale  and  calculate  fuselage  dimensions. 

Parasite,  m 

Analytically  determine  the  parasite  drag  coefficient. 

Mission. m 

Read  in  mission  definition.  Organize  and  conduct  mission 
analysis. 

Takeoff,  m 

Perform  takeoff  analysis. 

Atmos,  m 

Determines  atmospheric  conditions  at  any  given  altitude. 

Maxspeed.m 

Determines  maximum  speed  at  any  given  altitude 

Climb. m 

Orchestrate  climb  analysis. 

BestClimb.m 

Perform  optimum  climb  analysis. 

Cruise. m 

Perform  cruise  analysis. 

Loiter,  m 

Perform  loiter  analysis. 

Landing,  m 

Perform  landing  analysis. 
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Weights.m 

Perform  weights  analysis  and  determine  moments  of  inertia. 

LandingGear.m 

Determine  ground  handling  stability  parameters. 

VdocLongStab.m 

Perform  longitudinal  static  stability  analysis. _ 

VdocLongDynm.m 

Perform  longitudinal  dynamic  stability  analysis. 

VdocLatDir.m 

Perform  lateral  directional  static  stability  analysis. _ 

VdocLatDynm.  m 

Perform  lateral  directional  dynamic  stability  analysis. 

Controls.m 

Determine  control  effectiveness  requirements. 

Allconstraints,  m 

Generate  list  of  all  constraints. 

A.3  Input  Files 

Due  to  the  significant  flexibility  afforded  this  program,  the  number  of  input  files  is  quite 
large.  The  first  three  allow  the  user  to  define  the  variables  and  parameters.  The 
remaining  files  allow  the  user  to  cater  the  program  to  their  particular  design  needs.  Each 
file  must  be  saved  as  a  LOTUS  1-2-3  worksheet. 


NAME 


CONTENTS 


variables.wkl 


The  set  of  user  defined  design  variables. 


usedvars.wkl 


Determines  which  design  variables  are  used  for  optimization 
(1  =  used;  0  =  not  used) 


lower.wkl 


Lower  bounds  on  design  variable  values. 


upper.wkl 


Upper  bounds  on  design  variable  values. 


parameters,  wkl 


The  set  of  user  defined  permanent  parameters. 


mission. wkl 


User  defined  mission  profile 


UserConstraints.wkl 


User  defined  limits  on  the  constraints. 


ConstraintsUsed.wkl 


Determines  which  inequality  constraints  are  used 
(1  =  used;  0  =  not  used) 


EqconsUsed.wkl 


Determines  which  equality  constraints  are  used 
1  =  used;  0  =  not  used) 
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APPENDIX  B 
USER’S  MANUAL 


B.l  Introduction 

The  purpose  of  this  user’s  manual  is  to  provide  enough  guidance  to  allow  a  new  user  to 
learn  how  to  interact  with  the  complete  program  and  perform  new  design  cases.  This 
information  includes  the  format  of  the  input  files,  how  to  utilize  these  files  to  create  new 
design  cases,  and  how  to  run  the  program  and  interpret  the  results.  Each  section  presents 
a  series  of  steps  to  be  taken  to  originate  a  new  design  from  scratch.  These  are  continuous 
through  each  section. 

B.2  Managing  the  input  files 

In  Appendix  A,  the  names  and  functions  of  the  individual  input  files  were  presented. 
These  files  are  the  primary  manner  in  which  the  user  defines  the  optimization  design 
problem  of  interest. 

Step  #1:  Open  all  input  files 

The  input  files  are  in  LOTUS  1-2-3  worksheet  format  and  can  be  opened  and  saved 
using  Micosoft  Excel.  Open  each  of  the  input  files  so  that  you  can  toggle  between  the 
worksheets  using  the  Window  command  on  the  Excel  toolbar.  There  should  be  nine 
files.  Check  section  A.3  of  Appendix  A  to  verify  that  all  the  files  were  opened 
properly. 
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Step  #2:  Define  your  initial  design  using  variables.wkl  and  parameters.wkl 

These  files  define  the  initial  design.  The  preassigned  parameters  that  you  indicate 
will  be  fixed  throughout  your  design  analysis.  Unused  design  variables  will  also  be 
fixed  and  should  be  set  to  reasonable  or  known  values.  The  design  variables  used  for 
optimization  can  be  selected  at  the  user’s  discretion.  The  following  screen-shot 
shows  variables.wkl  as  it  should  appear.  The  user  defines  the  values  in  column  A, 


highlighted  in  red.  The  same  setup  has  been  applied  to  parameters.! 
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Step  #3:  Using  usedvars.wkl,  define  which  design  variables  are  to  be  used 

This  file  simply  defines  a  vector  of  ones  and  zeros  to  indicate  which  design  variables 
are  used  for  a  particular  case.  The  following  screen  shot  illustrates  a  case  where  the 
variables,  B,  BT,  BV,  BA,  CA,  CHE,  CR,  Pmax,  and  Wguess  are  all  designated  as  used 
design  variables. 
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Step  #4:  Define  the  lower  and  upper  bounds  on  the  design  variables  using  lower.wkl 
and  upper.wkl. 

Looking  at  these  files,  the  user  will  notice  that  the  setup  of  these  files  is  identical  to 
the  screen-shot  shown  for  variables.wkl.  Using  these  files,  the  user  must  set  the 
lower  and  upper  bounds  on  the  used  design  variables  using  the  respective  input  file. 


Step  Input  values  for  the  user-defined  constraints  using  UserConstraints.wkl 
As  discussed  in  the  body  of  the  thesis,  the  user  can  establish  restrictions  on  a  number 
of  aircraft  stability  and  control  parameters.  These  values  are  then  used  to  determine 
whether  a  constraint  is  violated  or  met.  The  input  screen  appears  as: 
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Step  #6:  Using  ConstraintsUsed.wkl  and  EQconsUsed.wkl,  define  which  inequlity 
and  equality  constraints  are  to  be  used. 

These  two  files  are  setup  very  similar  to  the  file,  usedvars.wkl.  In  each,  a  complete  list 
of  possible  constraints  is  listed.  A  “1”  must  be  placed  next  to  each  constraint  that  is  to  be 
used.  A  “0”  indicates  that  the  constraint  will  not  be  used.  The  next  section  discusses 
how  to  modify  ConstraintsUsed.wkl  to  support  a  variety  of  mission  definitions. 

Step  #7:  Save  the  input  files 

To  clarify  for  the  first  time  user,  saving  instructions  have  been  added  here  to  avoid 
confusion.  When  saving,  make  sure  that  the  selected  file  type  is  “WKl(l-2-3)  (*.wkl)” 
and  simply  overwrite  using  the  same  file  name.  Due  to  the  format  of  these  files.  Excel 
will  ask  if  you  want  to  convert  them  to  *xls  format  upon  closing.  Do  not  do  this.  Select 
“No”  and  move  on. 

B.3  Defining  the  mission  profile 

Defining  the  mission  profile  is  the  most  intensive  task  facing  the  user.  This  is  the  penalty 
of  allowing  any  number  of  various  mission  definitions.  With  this  in  mind,  proceed  with 


caution. 
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Step  #8:  Define  the  mission  using  mission.wkl 

This  file  consists  of  a  number  of  columns,  each  column  representing  one  mission  leg, 
which  must  be  built  and  values  added,  to  completely  define  the  mission  profile.  The 
following  screen  shot  shows  a  mission  profile  consisting  of  seven  mission  legs. 
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These  columns  must  always  be  filled  from  left  to  right,  beginning  with  column  B. 


Adding  a  new  leg  simply  requires  inserting  a  column  at  the  desired  position.  If 
removing  an  existing  leg,  simply  delete  and  shift  the  remaining  legs  to  the  left-most 


position. 
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Step  #9:  Modify  ConstraintsUsed.wkl  to  reflect  the  new  mission  profile 

Adding  or  removing  mission  legs  directly  effects  the  number  of  entries  into  the 
constraint  vector.  For  this  reason,  the  ConstraintsUsed.wkl  file  must  be  modified  to 
reflect  the  addition  or  removal  of  mission  constraints.  The  following  figure  shows  the 
end  portion  of  the  ConstraintsUsed.wkl  file.  The  mission  constraints  begin  at 
position  54,  as  shown.  This  should  never  change.  Each  mission  leg  has  a  particular 
set  of  associated  constraints  (refer  to  Table  10.4.6),  which  have  been  highlighted  in  the 
following  screen  shot. 
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For  example,  if  the  second  cruise  leg  were  removed,  the  constraints  following  would 
have  to  be  shifted  up  resulting  in  only  71  possible  constraints  instead  of  74. 
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Step  #1 0:  Modify  Mission.m  to  reflect  the  new  mission  profile 

The  source  code  for  Mission.m  is  included  in  Appendix  C  and  should  be  referenced 
during  this  discussion.  This  program  file  is  not  automatically  updated  when  the  user 
modifies  Mission.wkl  and  therefore  must  be  modified  to  reflect  the  new  mission 
profile.  The  following  is  an  example  of  how  to  program  a  mission  profile  consisting 
of  takeoff,  climb,  cruise,  and  landing. 


%  Set  leg 

This  block  represents 

LegNumber  =  1; 

^ - 

one  leg  of  this  4-leg 

Takeoff; 

mission  profile. 

%  Set  leg 

LegNumber  =  2; 

Climb ; 

%  Set  leg 

This  line  tells  the  program  which  column 

LegNumber  =  3;  ^ _ 

of  Mission.wkl  contains  the  information 

Cruise; 

pertaining  to  this  mission  leg. 

%  Set  leg 

LegNumber  =  4; 

Landina; ^ 

This  line  calls  the  desired  mission 
leg  analysis  file.  In  this  case, 

Landing.m, 

As  long  as  the  above  example  is  followed,  the  user  can  define  any  number  of  mission 
legs  for  analysis.  This  step  completes  the  task  of  defining  the  mission  profile. 
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B.4  Running  the  program 

Step  #77:  Running  OPTlst.m  and  analyze.m 

Running  the  program  is  exceptionally  simple.  First,  open  MA  TLAB  and  access  the 
directory  in  which  all  your  files  are  located.  The  user  now  has  two  options: 

1. )  Type  OPTlst  and  hit  return.  This  launches  the  optimization  program  and  will 

run  until  all  the  constraints  have  been  satisfied.  The  “optimized”  vector  of 
design  variables  will  appear  on  the  screen. 

2. )  Type  analyze  and  hit  return.  This  launches  the  analysis  program  only  and 

will  perform  all  possible  analysis  on  the  design  which  is  currently  defined  in 
the  variables.wkl  and  parameters.wkl  files. 

**  Warning. . .  A  couple  things  to  be  aware  of: 

1 . )  During  the  course  of  optimization  the  program  will  sometimes  violate 

restrictions  within  the  Smetana  codes.  The  Smetana  code  responds  by 
printing  a  violation  message  to  the  screen.  The  user  may  or  may  not  observe 
such  messages.  These  messages  do  not  effect  the  course  of  optimization  in 
any  way. 

2. )  Changes  to  the  input  files  sometimes  cause  a  vector  dimensions  error  at  the 

MATLAB  prompt  if  these  files  remain  open.  It  is  unknown  as  to  the  source  of 
this  problem.  The  best  way  around  this  is  to  re-save  the  input  files,  type  clear 
at  the  MATLAB  prompt,  and  try  to  run  the  program  again.  Be  persistent,  it 


will  work. 
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B.5  Interpreting  the  results 

Now  that  you  have  successfully  defined  and  run  your  design  problem,  it  is  time  to  view 
the  all-important  results.  These  results  are  contained  in  four  output  files  that  are 
automatically  created: 

1. )  LongStabOut.txt:  This  file  contains  a  listing  of  the  aircraft  geometric 

parameters  and  the  static  and  dynamic  longitudinal  stability  results. 

2. )  LatDirOut.txt:  This  file  presents  all  of  the  static  and  dynamic  lateral- 

directional  stability  results. 

3. )  MissionOutput.txt:  This  file  contains  the  results  of  each  mission  leg  and  also 

the  fuel  fractions  for  each  leg. 

4. )  Output.txt:  This  file  contains  a  variety  of  results  to  include  control  surface 

deflection,  ground  handling  stability,  and  the  component  weight  breakdown 
estimation.  Also  included  is  a  complete  list  of  the  constraints  and  the  design 
variables. 

Another  way  that  was  developed  to  view  the  resulting  design  is  the  plotdesign.m 
graphical  design  program.  To  utilize  this  program,  the  resulting  design  variables  must  be 
entered  into  the  variables.wkl  file.  The  user  must  then  run  analyze.m  to  calculate  the 
necessary  internal  program  parameters.  Once  this  has  been  done,  type  plotdesign  at  the 
MATLAB  prompt.  Two  figures  will  appear.  One,  which  depicts  the  top  view  of  your 
design,  and  one,  which  shows  the  side  view.  Examples  of  this  graphical  output  are 
presented  in  chapter  12. 
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APPENDIX  C 

SOURCE  CODE  LISTING 


C.l  Introduction 

The  pages  contained  in  this  appendix  present  the  total  source  code  listing  for  each 
module.  A  short  description  precedes  each  listing  to  provide  an  understanding  of  the 
specific  function  performed. 


C.2  OPTlsLm 

This  is  the  optimization  module  “executable”  file.  When  typed  at  theMATLAB  window, 
it  performs  the  design  case  defined  by  the  user. 

%  OPTlst.m:  Optimization  Design  Executable 
%  Calling  statements  for  Optimizer 

%  Global  statements  allow  these  variables  to  be  accessed  outside  of 

%  the  MATLAB  function  environment 

clear 

global  g 

global  geq 

global  DV 

global  X 

global  PP 

global  C 

global  Ceq 

global  EQconsUsed 

%Design  Variables 

□ 

DV  =  wklread ( 1  variables .wkl ') ; 

□ 

%Lower  Bounds  on  Design  Variables 

□ 

XLB  -  wklread {' lower . wkl ’} ; 

□ 

% Upper  Bounds  on  Design  Variables 

□ 

XUB  =  wkl read ( 1  upper .wkl * ) ; 

□ 

Xused  =  wkl read ( 1 usedvars .wkl 1 ) ; 
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%  Write  the  vector  of  used  design  variables 
j  =  1; 

for  i  =  1:1: length ( DV) 
if  Xused{i)  ==  1 

X0(j )  =  DV ( i ) ; 

LBo ( j )  =  XLB(i) ; 

UBo ( j )  =  XUB(i) ; 

j  =  j+1; 

end 

end 

XO  -  transpose (XO ) ; 

LBo  -  transpose ( LBo ) ; 

UBo  =  transpose (UBo ) ; 

%< -  used  to  initialize  interface 

%X  =  X0;%X0  < -  Input  Design  Variables 

%  Matrices  available  for  linear  optimization  problems 
Aoo  =  [ ] ; 

Boo=' [ j ; 

Aeqo  =  [ ] ; 

Beqo  ~  [ ] ; 

OPTIONS  -  optimset ( 1 TolX 1 , 0 . 00000000000000000001 , ’MaxFunEvals ' , 500 ) ; 

%  Initiates  the  FMINCON  function  using  the  user  inputs. 

%  This  command  is  the  execution  of  the  optimizer. 

[X, FVAL, EXIT FLAG, OUTPUT]  = 

f mi neon ( 1  ANAL funis t 1 , X0, Aoo, Boo, Aeqo, Beqo, LBo, UBo,  'NONLCONlst 1 , OPTIONS} ; 
disp (X) ; 


C.3  ANALFUNlst.m 

The  FMINCON MATLAB  function  requires  the  analysis  module  to  be  executed  in  the 
form  of  a  function,  rather  than  a  standard  .m  file.  Thus,  this  function  file  calls  the 
analysis  module  executable  file,  analyzelst.m. 

%  ANALFUNlst.m 

%  This  file  is  defined  as  a  function  file  using  the  following  line 
%  The  objective  function,  F,  and  the  design  variables,  X,  must  be 
%  formatted  in  this  manner  to  work  with  FMINCON. 

function  [ F]  =  ANALf unlst (X } 

global  g 
global  geq 
global  DV 
global  Xused 
global  PP 

%Open  input  file 

format  long 

^Permanent  Parameters 

PP  -  wklread ( ’ pa rameters . wkl * ) ; 

j  -  1; 
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DV  =  wklread {’ variables .wkl 1 ) ; 
Xused  =  wklread (* usedvars .wkl ') ; 


.%  Write. the  X  vector  of  design  variables  into  the  list  of  unused  design  variables,  DV. 
for  i  =  1 :1: length (DV) 
if  Xused (i)  ==  1 
DV  (  i ,  1 }  =  X  ( j  )  ; 

j  -  j+i; 

end 

end 

%  Call  analyzelst . m,  the  analysis  module 
analyzelst; 

%  Define  Objective  Function 
F  =  Wcalc; 


C.4  NONLCONlstm 

This  file  is  also  a  function  to  fit  with  the  formatting  requirements  of  FMINCON.  It  takes 
the  complete  constraint  vectors,  g  and  geq,  and  maps  them  to  the  vectors  of  used 
constraints,  C  and  Ceq. 

%  NONLCONlst.m 

%  Defines,  the  vectors  of  used  constraints 
function  [C,Ceq]  =  NONLCONlst ( X, F) 

%  Dummy  constraint  code  used  to  grab  constraints  from 
%  analysis  code. 

global  g 
global  geq 
global  C 
global  Ceq 

%  Ensures  these  vectors  are  written  as  column  vectors 
C  =  -ones (3,1); 

Ceq  =  zeros (3,1); 

%  Map  constraints 
%  Read  user  input  files 

CONSused  =  wklread (' Const raintsUsed . wkl ’) ; 

EQconsUsed  -  wkl read (' EQconsUsed . wkl * ) ; 
j  =  i; 

for  i  =  1 : 1 : length ( g ) 
if  CONSused (i,l)  == 

C  ( j  )  =  g  (  i  ) ; 
j  =  j+i; 

end 

end 

j'  “  l; 


l 
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for  i  -  1 : 1 : length (geq ) 
if  EQconsUsed ( i , 1 )  ==  1 
Ceq( j,l)  =  geq(i) ; 

j=j+i; 

end 

end 


C.5  analyzelst.m 

This  file  is  the  analysis  module  executable  that  has  been  modified  from  cinalyze.m  to 
allow  integration  with  the  optimization  module.  The  variables  used  within  this  file  are 
first  defined  in  ANALFUN 1st. m. 


%anal.yzelst . m 

%Called  from  within  ANALFUNlst . m,  this  launches  the  analysis  module 
%Order  is  important 
□ 

□ 

cnn  =  0; 

□ 

%Call  Geometry. m  to  calculate  design  configuration 

%  Defines  all  geometric  parameters  utilized  in  all  other  files 

Geometry; 

%Cali  Mission. m  to  perform  initial  sizing  and  mission  analysis 
%Ai rspeed  at  cruise  used  in  determination  of  stability  derivatives 
%If  this  section  is  omitted,  airspeed  must  be  defined  elsewhere 
□ 

Mission; 

%Call  Weights. m  to  calculate  weights  and  c.g. 

%Moments  of  inertia  used  for  dynamic  stability  analysis  are  determined  here 

□ 

Weights; 

□ 

□ 

%Call  LandingGear .m  to  develop  landing  gear  constraints 
LandingGear; 

□ 

□ 

%Call  VdocLongStab . m  to  calculate  Longitudinal  Stability  Derivatives 

%for  the  current  design 

VdocLongStab; 

□ 

□ 

%Call  VdocLongDynm . m  to  calculate  Longitudinal  Dynamic  Response 
□  ' 

%for  the  current  design 

□ 
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VdocLongDynm; 

□ 

□ 

%Call  VdocLatDi r . m  to  calculate  Lateral-directional  Stability  Derivatives 

□ 

%for  the  current  design 
VdocLatDir; 

%Call  VdocLatDynm. m  to  calculate  Lateral-directional  Dynamic  Response 

%for  the  current  design 

VdocLatDynm; 

%Call  Controls. m  to  determine  control-surface  deflection 
Controls; 

%Call  Allconstraints . m  to  calculate  constraints  and  generate  vectors 
Allconstraints; 


C.6  analyze.m 

There  is  very  little  difference  between  this  file  and  analyze  1  st.m  except  that  this  file  can 
be  executed  as  a  stand-alone  file.  Basically,  if  the  user  simply  wants  to  analyze  a  specific 
design,  that  design  can  be  expressed  in  the  input  files  and  the  analysis  performed  by 
simply  using  this  file. 

%analyze.m 

□ 

%stand-alone  analysis  executable  file 

□ 

%performs  the  complete  analysis  on  a  user  defined  design 
%no  optimization  involved. 

□ 

%*********************************  +  ***  +  ********^******************-*************-v  + 

%Open  input  file 

format  long 

^Permanent  Parameters 

PP  =  wklread {' parameters .wkl ') ; 

%Design  Variables 

DV  ~  wklread {' variables .wkl ')  ; 

X  =  DV; 

%Lower  Bounds  on  Design  Variables 
XL  =  wkl read ( 1 lower . wkl 1 ) ; 

%Upper  Bounds  on  Design  Variables 
XU  =  wklread ( 1  upper . wkl ') ; 

%Call  Geometry. m  to  calculate  design  configuration 
^Defines  all  geometric  parameters  utilized  in  all  other  files 
□ 

Geometry; 

O 
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□ 

%Call  Mission. m  to  perform  initial  sizing  and  mission  analysis 
%Ai rspeed  at  cruise  used  in  determination  of  stability  derivatives 
%If  this  section  is  omitted,  airspeed  must  be  defined  elsewhere 
□ 

Mission; 

□ 

□ 

%Call  Weights. m  to  calculate  weights  and  c.g. 

%Moments  of  inertia  used  for  dynamic  stability  analysis  are  determined  here 
Weights; 

%Call  LandingGear . m  to  develop  landing  gear  constraints 
LandingGear; 

□ 

□ 

%Call  VdocLongStab.m  to  calculate  Longitudinal  Stability  Derivatives 

□ 

%for  the  current  design 
VdocLongStab; 

□ 

□ 

%Call  VdocLongDynm . m  to  calculate  Longitudinal  Dynamic  Response 

%for  the  current  design 

VdocLongDynm; 

%Call  VdocLatDir.m  to  calculate  Lateral-directional  Stability  Derivatives 
%for  the  current  design 
VdocLat Dir; 

%Call  VdocLatDynm. m  to  calculate  Lateral-directional  Dynamic  Response 

%for  the  current  design 

VdocLatDynm; 

%Call  Controls. m  to  determine  control-surface  deflection 
Controls; 

%Call  Allconst raints . m  to  calculate  constraints  and  generate  vectors 
Allconstraints; 


C.7  Geometry.m 

This  file  defines  and  calculates  all  the  required  geometric  information  pertaining  to  the 
design. 

%  Program  Geometry.m 

□ 

%  This  program  consolidates  all  geomet ry/conf iguration  calculations,  originally 

%  performed  within  the  Smetana  codes,  into  this  one  code 

□ 

%**  +  +  *  +  +  *  +  ***  +  +  +  ***  ****  +  +  +  *  +  +  *■*■  +  "*•*•*  +  *  -A'****-************************************** 
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%  Read  Flight  Conditions 
GAMMA  =  PP { 83 ) ;  GRAVIT  =  PP{88); 

%  Convert  GAMMA  to  radians  and  find  g*cos (gamma)  and  g*sin  (gamma) 
GAMMA  =  GAMMA-*  pi  / 180; 

GCOSGM  =  cos (GAMMA); 

GSINGM  =  sin (GAMMA) ; 

%  Wing  data  (geometry) 

B  =  DV ( 1 )  ; 

CROOT  =  DV ( 2 ) ;  TR  =  DV(3);  IWING  =  P P ( 2 8 ) ; 

□ 

SA  =  PP(27);  DIH  =  DV(4);  ZW  =  PP(81);  Xlewng  =  DV(5)  ; 

□ 

toverc  -  PP(29);  tc  =  toverc; 

□ 

□  . 

%  Added  as  safeguards  against  negative  geometric  distances 
%  Appear  to  assist  the  optimizer  in  most  situations 
if  B  <=  0 
B  =  10; 

end 

if  TR  >  1 
TR  =  1; 

end 

if  TR  <  0.5 
TR  =  0.5; 

end 

if  CROOT  <=  0  * 

CROOT  =  2; 
end 

%  Cbar  (average  chord  for  area  calculation) 

□ 

Cbar  =  0.5* (CROOT+TR* CROOT ) ; 

□ 

MACwing  =  ( 2/3 ) *CROOT* ( 1+TR+TR~2 ) / { 1+TR)  ;  %Raymerpg.  49 

%  Calculate  wing  area 
S  =  B*Cbar ; 

CROOT  =  Cbar;  v 

%  Wing  Data  (aerodynamic) 

CLA2DW  =  PP ( 4  2 ) ;  CDA2DW  =  PP(37); 

ALPHA  =  PP(82) ; 

%  Convert  ALPHA  to  radians 
ALPHA  =  ALPHA*pi/180; 

%  Horizontal  Tail  Data  (geometry/location) 

BT  =  DV ( 6 ) ;  Crtail  =  DV(7);  TRT  =  DV(8);  Xletail  =  DV(9); 

I TAIL  =  PP ( 31 ) ;  ZT  =  PP(79);  EFF  =  PP(47); 

SAH  =  PP ( 30 ) ;  BH  -  BT;  TRH  =  TRT; 

%  Added  as  safeguards  against  negative  geometric  distances 
%  Appear  to  assist  the  optimizer  in  most  situations 
if  TRT  >  1 
TRT  -  1; 

end 

if  TRT  <0.5 
TRT  =  0.5; 

end 
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if  BT  <==  0 
BT  =  2; 
end 

%Cbartail  (average  chord  for  area  calculation) 

□ 

Cbartail  =  0.5*(Crtail  +  TRT*Crtail ) ; 

□ 

MACht  =  (2/3) *Cr tail* ( 1+TRT+TRT^2 ) / (1+TRT) ;  SRaymer  pg.  49 

□ 

□ 

%Calculate  horizontal  tail  area 

□ 

ST  =  BT*Cbartail; 

SH  —  BH*Cbartail; 

%  Horizontal  Tail  Data  (Aerodynamic) 

CLA2DT  =  PP ( 4 1 ) ; 

CLA2DH  =  CLA2DT ; 

%  Vertical  Tail  data 

BV  =  DV (10);  Crvt  =  DV(ll);  TRvt  =  DV(12);  Xlevt  =  DV(13); 

ZV  =  P  P ( 8  0 ) ;  ETAV  =  PP(48);  SAvt  =  PP(32); 

%  Added  as  safeguards  against  negative  geometric  distances 
%  Appear  to  assist  the  optimizer  in  most  situations 
if  BV  <=0 
BV  =  2; 
end 

if  Crvt  <=0 
Crvt  =  1; 
end 

Cbarvt  =  .5* (Crvt  +  TRvt*Crvt); 

□ 

MACvt  =  ( 2/3 ) *Crvt* { 1+TRvt+TRvt A2 ) / ( 1+TRvt ) ;  %Raymer  pg.  49 
□  J 
SV  =  BV* Cbarvt ; 

XVT  =  Xlevt  +  . 25*Crvt ; 

%  Aspect  Ratios  of  wing  and  tails. 

AR  =  B*2/S; 

ART  =  BT/S2/ST; 

%  Elevator  Data 

CHE  =  DV (20);  BE  =  .5*BT; 

%  Added  as  safeguards  against  negative  geometric  distances 
%  Appear  to  assist  the  optimizer  in  most  situations 
if  BE  <=0 
BE  =  0.5; 
end 

if  CHE  <=  0 
CHE  =  0.2; 
end 

%  Calculate  elevator  area  assuming  rectangular  Account  for  both  sides  of  tail 
SELEV  =  2*CHE*BE; 

□ 
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%  Aileron  Data 

□ 

BA  =  DV (14);  CA  =  DV(15);  YI  =  DV(16); 

□ 

%  Added  as  safeguards  against  negative  geometric  distances 
%  Appear  to  assist  the  optimizer  in  most  situations 
□ 

if  BA  <=0 
BA  =  0.5; 
end 

if  CA<=0 
CA  =  0.2; 
end 

if  YI  <=0 
YI  -  2; 
end 

SAileron  =  BA* CA; 

%  Flap  Data 

□ 

BFlap  -  DV{17) ; 

□ 

CFlap  =  DV (18) ; 

□ 

%  Added  as  safeguards  against  negative  geometric  distances 
%  Appear  to  assist  the  optimizer  in  most  situations 
□ 

if  BFlap  <=0 
BFlap  =  0.5; 
end 

if  CFlap  <=0 
CFlap  =  0.2; 
end 

%  Rudder  Data 

□ 

BR  =  BV;  CR  =  DV(22); 

□ 

if  BR  <=  0 
BR  =  1; 
end 

if  CR  <=0 
CR  =  0.2; 
end 

SR  =  BR*CR; 

□ 

□ 

%  Fuselage  Initialized  Data  (Geometry) 

LB  =  D V ( 2 3 ) ;  Lo  =  PP(1);  WFUSo  -  PP { 13) ; 

Hlo  =  PP  ( 2 }  ;  H2o  =  PP{4);  Ho  =  PP(2);  Rio  =  PP(12); 

LF  =  LB;  HNOSEo  -  PP(8);  WNOSEo  =  PP(16);  HFCYo  ~  PP{6);  WFCYo  =  PP(15); 
LFCYo  =  PP(10);  LMHo  «  PP(ll);  HBCYo  =  PP(5);  WBCYo  =  PP(14);  LBCYo  =  PP(9); 
Hgearo  -  PP(7);  Option  =  PP(26); 

%  Fuselage  Data  (aerodynamic) 

CLAFUS  =  PP ( 4  3 ) ; 

LDmax  =  PP(50) ; 

%  Configuration  data  (geometric) 

ZA  =  PP ( 7  8 ) ;  XM  =  DV(30); 


□ 

%  Calculate  important  distances 

□ 

XA  =  XM  -  { Xlewng  +  .25*CROOT); 

□ 

XFUS  =  Xlewng  +  . 25*CROOT; 

XCG  =  -XA; 

LT  =  (Xletail  +  .25*Crtail)  -  XM; 

LT1  =  (Xletail  +  ,25*Crtail)  -  (Xlewng  +  .25*CROOT); 

XW  =  XFUS; 

XHT  =  Xletail  +  . 25*Cba rtail ; 

%  Configuration  data  (aerodynamic) 

CDO  =  PP ( 35 ) ; 
cDO  =  CDO;’ 

%  Thrust  data 

ZJ  =  ZT;  COSXZ  =  PP(84);  SINXZ  =  PP ( 85 ) ; 

%  Geometry  for  weights  calculations 
HtHv  =  PP ( 68 ) ;  Lm  =  DV(24);  Ln  =  DV(26); 

Nen  =  PP ( 54 ) ;  N1  =  PP { 69 ) ;  Nt  -  PP(72);  Nz  =  PP(73); 

Pdelta  -  PP(74);  Vpr  =  PP ( 7 5 ) ;  Wguess  =  DV(29);  Wdg  -  Wguess; 

Wen  =  PP ( 55 ) ;  W1  =  PP ( 7 6 ) ;  Wuav  =  PP{63);  Nstrut  =  PP{70); 

Npassengers  =  PP(57);  Ncrew  =  PP(58);  Wppass  «  PP(59); 

Wpcrew  =  PP ( 60 ) ; 

Np  =  Npassengers+Ncrew; 

%  Total  Person  Weight 

Wcrew  =  Wpcrew*Ncrew+Wppass*Npassengers; 

□ 

%  CG  locations  of  various  aircraft  systems  and  components 
CGwing  =  Xlewng  + . 4 *MACwing; 

CGht  =  Xletail  +  . 4*MACht; 

CGvt  =  Xlevt  +  . 4*MACvt ; 

CGfuse  =  . 5*LB; 

CGmgr  =  DV(25); 

CGngr  =  DV(27); 

CGengo  =  PP(21);  CGfuelo  =  PP ( 22 ) ; 

□ 

CGctrlo  =  PP ( 1 9 ) ;  CGhydro  =  PP(24);  CGeleco  =  PP(20);  CGaviono  =  PP(18),*' 

□ 

CGaco  =  PP ( 17 ) ;  CGfurno  =  PP(23); 

%  Convert  sweep  angles  to  radians 
SA  =  SA*pi/180; 

SAH  = ,SAH*pi/180; 

SAvt  =  SAvt*pi/180; 

%  Add  permanent  parameters  and  design  variables  required  for  performance 
%  analysis  within  the  mission  profiles 

AnPower  =  PP(52);  cDFlapRatio  -  PP(38);  cDLGratio  =  PP(39); 
cFriction  =  PP(40);  cLmax  =  PP(44);  cLmaxClean  =  PP { 4 5 ) ; 

Dprop  =  PP ( 56 ) ;  EnginDragFactor  =  PP ( 4 6 ) ;  engineDref  =  PP(33); 
engineLref  =  PP(34);  enginePower ref  =  PP(53);  eps  =  PP(77); 
groundeffect  =  PP (49);  Growth  =  PP ( 62 ) ; 

Oswald  =  PP ( 51 ) ;  RoskamA  -  PP(64); 

RoskamB  =  PP { 65 ) ;  slender  -  PP ( 25 ) ; 

UpperMach  =  PP{86);  WindMax  =  PP{87);  Wpayload  -  PP ( 61 ) ; 

Pmax  =  DV ( 2 8 ) ;  RaymerA  =  PP(66);  RaymerC  -  PP(67); 
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%  Call  Fuselage. m  to  determine  fuselage  dimensions  "Rubber  Fuselage  Concept" 
Fuselage; 

%Find  approximate  fuselage  wetted  area 
Atop  =  LB* ( WNOSE+WFCY+WBCY+WFUS ) / 4 ; 

Aside  =  LB* ( HNOSE+HFCY+HBCY ) /3; 

Sf  =  3 . 4  * ( Atop+Aside ) /2;  %Eqn.  7.12  in  Ra'ymer 

^Determine  wing  wetted  area 
Sexposed  =  S-CROOT*WFUS; 

Swingwet  =  Sexposed* ( 1 . 977+0 . 52*toverc ) ; 

^Horizontal  tail  and  vertical  tail  wetted  areas  are  just  2  times  normal 
Swet  =  Sf+ Swingwet + 2* ST+2*SV; 

□ 

%  Call  Parasite. m  to  determine  parasite  drag  coefficient 

□ 

Parasite; 

□ 

□ 

%  Determine  total  tank  volume  for  integral  fuel  tanks 

%  From  Torenbeek  pg.  449  eqn.  B-12 

Vi  =  0.54*S^2*toverc/B* ( 1+TR+TR~2 ) / (1+TR) A2;  %ft~3 

%  Convert  to  gallons  and  multiply  by  Mil-Spec  density  of  6.0  lb/gal 
Vi  =  7 . 4  81*Vi ; 

Vt  =  Vi; 

Fueldens  =  P  P ( 7 1 ) ; 

Wfw  =  Vi*7 . 481*Fueldens; 


C.8  Fuselage.m 

This  file  establishes  the  fuselage  dimensions  based  on  one  of  three  options,  which  must 
be  set  by  the  user.  The  file  itself  is  called  from  within  Geometry. m. 

%Fuselage.m 

□ 

%This  code  determines  the  required  fuselage  dimensions  based  on  the  %input  values  and  the 
option  selected  by  the  user. 

%Option  1 :  Use  the  given  values 

%Option  2:  Scale  the  fuselage  to  the  length 

% Option  3:  Using  the  slenderness  ratio,  scale  the  fuselage  to  the  width 
if  Option  ==  1 

%  Set  fuselage  dimensions  to  input  values 

%  LB  is  initialized  as  a  design  variable  and  is  modified  by  optimizer 
WFUS  =  WFUSo;  H  =  Ho;  HI  -  Hlo;  H2  =  H2o;  HBCY  =  HBCYo;  HFCY  =  HF.CYo; 

Hgear  =  Hgearo;  HNOSE  =  HNOSEo;  LBCY  =  LBCYo;  LFCY  =  LFCYo ;  LMH  =  LMHo; 

R1  =  Rio;  WBCY  =  WBCYo;  WFCY  =  WFCYo;  WNOSE  =  WNOSEo;  CGac  -  CGaco; 

CGavion  =  CGaviono;  CGctrl  =  CGctrlo;  CGelec  =  CGeleco;  CGeng  =  CGengo; 

CGfuel  =  CGfuelo;  CGfurn  =  CGfurno;  CGhydr  =  CGhydro; 

elseif  Option  ==  2 

%  Scale  fuselage  dimensions  using  length  ratios 
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WFUS  =  WFUSo/Lo*LB;  H  =  Ho/Lo*LB;  HI  =  Hlo/Lo*LB;  H2  =  H2o/Lo*LB; 

HBCY  =  HBCYo/Lo*LB;  HFCY  =  HFCYo/Lo*LB;  Hgear  =  Hgearo/Lo*LB; 

HNOSE  -  HNOSEo/Lo*LB;  LBCY  =  LBCYo/Lo*LB;  LFCY  =  LFCYo/Lo*LB; 

LMH  =  LMHo/Lo*LB;  R1  =  Rlo/Lo*LB;  WBCY  =  WBCYo/Lo*LB;  WFCY  =  WFCYo/Lo*LB; 

WNOSE  =  WNOSEo/ Lo*  LB;  CGac  =  CGaco/Lo*LB;  CGavion  =  CGaviono/Lo*LB; 

CGctrl  =  CGctrlo/Lo*LB;  CGelec  =  CGeleco/Lo*LB;  CGeng  =  CGengo/Lo*LB; 

CGfuel  =  CGf uelo/Lo*  LB;  CGfurn  =  CGf urno/Lo*LB;  CGhydr  =  CGhydro/Lo*LB; 

else 

%  Scale  fuselage  dimensions  using  fixed  slenderness  ratio 

WFUS  -  1/ slender*LB;  H  -  Ho/WFUSo*WFUS;  HI  =  Hlo/WFUSo*WFUS;  H2  =  H2o/WFUSo*WFUS ; 
HBCY  =  HBCYo/WFUSo*WFUS ;  HFCY  =  HFCYo/WFUSo*WFUS; ’ Hgea r  =  Hgearo/WFUSo*WFUS; 

HNOSE  =  HNOSEo/ WFUSo*WFUS;  LBCY  =  LBCYo/WFUSo*WFUS;  LFCY  =  LFCYo/WFUSo*WFUS ; 

LMH  =  LMWo/WFUSo*WFUS;  R1  =  Rio /WFUSo* WFUS;  WBCY  =  WBCYo/WFUSo*WFUS; 

WFCY  =  WFCYo/WFUSo*WFUS ;  WNOSE  =  WNOSEo/WFUSo*WFUS;  CGac  =  CGaco/WFUSo*WFUS ; 

CGavion  =  CGaviono/WFUSo*WFUS;  CGctrl  =  CGctrlo/WFUSo*WFUS; 

CGelec  =  CGeleco/WFUSo*WFUS;  CGeng  «  CGengo/WFUSo*WFUS;  CGfuel  =  CGfuelo/WFUSo*WFUS; 
CGfurn  =  CGf urno/WFUSo*WFUS;  CGhydr  =  CGhydro/WFUSo*WFUS; 

end 

YFlap  =  WFUS/ 2 ; 


C.9  Parasite.m 

This  code  determines  the  parasite  drag  coefficient  if  desired  by  the  user.  It  is  called  from 
Geometry.m. 

%  Parasite.m 

□  , 

% 

□ 

%  This  code  determines  the  value  for  the  parasite  drag  coefficient  based  on 

□ 

%  the  user’s  desired  method 

□ 

% 

□ 

%  If  CDO  ==  0  then  the  code  calculates  CDO  using  Torenbeek. ' s  wetted  area 
%  approximation  and  the  aerodynamic  cleanness  coefficient 

if  CDO  ==  0 

%Find  approximate  fuselage  wetted  area 
Atop  =  LB* ( WNOSE+WFCY+WBCY+WFUS ) / A; 

Aside  =  LB* ( HNOSE+HFCY+HBCY ) /3; 

Sf  =  3.4* (Atop+Aside) /2;  %Eqn.  7.12  in  Raymer 

%Determine  wing  wetted  area 
Sexposed  =  S-CROOT*WFUS; 

Swingwet  =  Sexposed* ( 1 . 977  +  0 . 52*toverc ) ; 

% Horizontal  tail  and  vertical  tail  wetted  areas  are  just  2  times  normal 
Swet  =  Sf+Swingwet+2*ST+2*SV; 

CDO  =  Swet/Swing*CF; 

end 
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C.10  Mission.m 

This  file  reads  in  the  mission  definition  and  organizes  and  conducts  the  total  mission 
analysis.  New  mission  definitions  must  be  indicated  by  changes  in  this  file  and  in  the 
input  file. 


%  Mission.m 

%  User  modifiable  program  to  perform  mission  analysis  utilizing  any  combination  of 

%  prescribed  mission  legs:  Takeoff,  Climb,  Cruise,  Loiter,  &  Landing.  Descent 
%  concerns  are  included  in  the  landing  leg  calculations. 

%  This  code  calls  the  file,  mission. wkl,  as  input  for  each  leg. 

%  The  variable  LegNumber  must  be  set  between  each  leg  based  on  order. 

%  Do  not  modify 

%  This  allows  mission  analysis  beginning  with  any  leg... does  not  necessarily 
%  have  to  be  a  takeoff  leg, 

%  Remember  to  input  Wguess  into  main  input  file 
Win  =  Wguess; 

%  Open  input  file 

MissIN  =  wklread ( ’Mission .wkl 1 )  ; 

gmission  =  [ ] ; 

%  Generate  sea  level  reference  conditions 

□ 

altitude  =  0; 

□ 

Atmos ; 

D 

densSL  =  rho; 

□ 

□ 

%  Create  mission  output  file  for  constraint  values 
fid4  =  fopen( ’MissionOutput.txt '  , 'w' ) ; 
fprintf ( f id4 , ’ \n  Mission  Performance  Results’); 
fprintf { f id4 , ' \n ' ) ; 

%%%%  USER  MODIFIABLE  SECTION! ! !  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

%  Following  setup  is  for  a  mission  consisting  of  six  mission  legs 
•%  Follow  the  same  formatting  when  adding  mission  legs 

□  ‘ 

%  Set  leg 
LegNumber  =1; 

Takeoff; 

%  Set  leg 
LegNumber  =  2; 

Climb; 

%  Set  leg 
LegNumber  =  3; 

Cruise; 
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%  Set  leg 

□ 

LegNumber  =  4  ; 

□ 

Loiter; 

□ 

□ 

%  Set  leg 

□ 

LegNumber  -  5; 

□ 

Cruise; 

□ 

□ 

%  Set  leg 

□ 

LegNumber  -  6; 

□ 

Loiter; 

□ 

□ 

%  Set  leg 

□ 

LegNumber  =  7; 

□ 

Landing; 

%  USER  MODIFIABLE  REGION  ENDS  HERE!! 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

%  Final  weight 

□ 

Wfinal  =  Win; 

□ 

%  Set  objective  as  minimizing  the  final  weight 

□ 

OBJ  =  Wfinal; 

□ 

□ 

%  Fuel  weight 

□ 

WmissFuel  =  Wguess-Wf inal ; 

%  Any  number  of  mission  legs  can  be  entered  in  the  above  format.  The  variable 
%  LegNumber ,  indicates  the  column  in  mission. wkl  that  contains  the  particular 
%  definitions  for  each  leg. 

%Empty  Weight  Calculation 

Wei  =  Wguess-Wmiss Fuel-Wpayload-Wcrew; 

Wroskam  =  10A ( ( loglO (Wguess ) -RoskamA) /RoskamB) ; 

Wraymer  -  Wguess^RaymerA^Wguess^RaymerC; 

We2  =  0. 937* ( Wroskam+Wraymer ) /2; 

%Gross  Weight  Calculation 

Wcalc  -  ( Wcrew+Wpayload  )  /  ( 1-  (WmissFuel /Wguess )  -  {We2 /.Wguess  )  )  ;  %Raymer 
%Wcalc  =  We2+WmissFuel+Wpayload+Wcrew;  %Used  by  Eli 
gWeight  =  (Wcalc  -  Wguess ) /Wguess; 


fprintf ( f id  4 , ' \n 1 ) ; 


fprintf (fid4, '\n  Mission  Segment  Fuel  Fractions:'); 
fprintf ( fid4 ,  1 \n  %4 . 6f ' , WratiosA) ; 


C.ll  Takeoff.m 

This  file  performs  the  analysis  for  the  takeoff  mission  leg.  It  is  called  from  Mission.m 

%  Takeo.f  f .  m 

□ 

%  This  file  performs  all  aspects  of  the  takeoff  analysis 

□ 

□  ■ 
fprintf (fid4,'\n  Takeoff:'); 
fprintf ( f  id4  ,  ' \n ’ )  ; 

%  Read  input  pertinent  to  the  takeoff  leg 
IN  =  MissIN ( : , LegNumber+1 )  ; 

□’ 

option  -  IN  ( 1 ) ; 

□ 

altitude  =  IN ( 2 } ; 

Np  =  IN { 5 ) ; 

SpeedTO  =  IN (6) ; 
throttle  -  IN (7) ; 

RunwayTO  *=  IN.(8); 

RCTO  =  IN  {  9  )  ; 
groundFriction  =  IN (14); 

Hobstacle  -  IN(15) ; 

□ 

Atmos; 

□ 

□ 

%  Performance  method  (Balanced  field  length) 

□ 

sigma  =  rho/densSL; 

□ 

Power  =  Pmax*  ( sigma  )  ''An Power;  %hp 

□ 

cLclimb  =  cLmax/1.44; 

Ur  =  0 . 01*cLmax+0 . 2 ; 

G  =  0;  %  Set  as  such  for  preliminary  sizing 

%  Average  thrust  from  Raymer,  pg.  489 

Taverage  =  5 . 75* Power* ( sigma*Nen*Dprop*2/ Power ) A ( 1/3 ) ; 

%  Balanced  Field  Length  from  Raymer,  pg .  489 

BFL  =  0. 863/ ( 1+2 . 3*G) *( (Win/S) /( rho*GRAVIT*cLcl imb ) +Hobstacle )*( 1/ ( Taver age/Win  ... 

-Ur ) +2 . 7 ) + { 655/sqrt ( sigma ) ) ; 

%  Takeoff  CL,  CD,  Airspeed,  Power  Required 
cLTO  =  cLmax/1.44; 

VTO  =  sqrt ( 2* Win/ rho/ S/cLTO) ; 

ReTO  -  rho*VTO*CROOT/visc;  %Reynold's  number  at  Takeoff 

cDTO  =  cDO+cLTCT 2/ pi /AR/S*groundef f ect+cDLG rati o*cDO+cDFlapRatio* cDO; 

DragTO  «  0. 5*rho*VTOA2*S*cDTO;  %lb 
PreqTO  -  DragTO*VTO;  %ft-lb/s 
PreqTO  =  PreqTO/550;  %hp 
PowerTO  =  Np* Pmax*sigma^AnPower ;  %hp 
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%  Rate  of  climb  at  takeoff 
PowerClimb  =  Power*throttle;  %hp 
AA  =  Np* PowerClimb*550/Win; 

BB  =  0.5*  rho*S*  cDO/Win; 

CC  =  Wi n/pi/AR/ Oswald* 2 / rho/S; 

%  Optimum  Climb  speed 
Uopt  =  sqrt (sqrt (CC/3/BB) ) ; 

%  Optimum  Rate  of  Climb 
RC  =  AA-BB*Uopt'"3-CC/Uopt; 

%  BFL  must  be  less  than  the  runway  length 
gTO(l,l)  =  abs ( BFL/RunwayTO) -1 ; 

%  VTO  must  be  less  than  or  equal  to  specified  Takeoff  speed 
gTO (2,1)  =  VTO/SpeedTO-1 ; 

%  Power  available  must  be  greater  than  or  equal  to  power  required 
gTO (3,1)  =  PreqTO/ PowerTO-1 ; 

%  Rate  of  Climb  at  takeoff  greater  than  or  equal  to  desired  rate  of  climb 
gTO(4,l)  =  1  -  RC/RCTO; 

%  Statistical  analysis 

%  warmup  and  take-off  (Ra'ymer  Table  3.2) 

Wout=  Win*0 . 97 ; 

WratiosA {LegNumber , 1 ) =Wout/Win; 

Win  =  Wout; 


gmission  =  [gmission;  gTO]  ; 


fprintf ( f  id4  ,  ' \n 
fprintf ( fid4 , '\n 
fprintf ( f id4 ,  ' \n 
fprintf ( f id4  ,  *  \n 
fprintf ( fid4 ,  ’\n 
fprintf ( f id4  ,  * \n 
fprintf ( f id4  ,  ’ \n 


Balanced  Field  Length,  ft 
Takeoff  Airspeed,  ft/s 
Takeoff  Lift  Coefficient 
Takeoff  Drag  Coefficient 
Power  Available,  hp 
Power  Required,  hp  , 

Rate  of  Climb,  ft/s 


=  %4 . 6f ’ , BFL) ; 

=  %  4 . 6f 1 , VTO) ; 

=  %4.6f (,cLTO) ; 

=  %  4 . 6f ’ , cDTO) ; 

=  %  4 . 6f 1 , PowerTO) ; 
=  %4 . 6f ' , PreqTO) ; 

=  %4 . 6f 1 , RC) ; 


C.12  Climb.m 


This  file  outlines  the  climb  analysis  and  calls  the  BestClimb.m  routine.  Climb.m  is  called 
by  Mission.m. 


%  Climb.m 

%  Perform  climb  analysis 

fprintf { f id4 , 1 \n 1 ) ; 
fprintf (fid4, '\n  Climb:’); 
fprintf ( f id4 , ' \n ' ) ; 

IN  =  MissIN ( : , LegNumber+1 ) ; 
option  =  IN ( 1 ) ; 
deltah  =  IN ( 2 ) ; 

BSFC  =  IN { 4 ) ; 

Np  =  IN { 5 ) ; 
throttle  =  IN (7 ) ; 

%  Call  BestClimb.m 
Eliclimb; 


if  option  ==  1 

%  Statistical  analysis 

%  warmup  and  take-off  (Raymer  Table  3.2) 
Wout=  Win*0. 985; 

end 

WratiosA{LegNumber , 1 ) =Wout/Win; 

Win  =  Wout; 

fprintf ( fid4 , ' \n  Optimum  Climb  Speed,  ft/s 
fprintf ( f id4 , * \n  Optimum  Lift  Coefficient 
fprintf ( fid4 ,  ' \n  Climb  Drag  Coefficient 
fprintf ( fid4 ,' \n  Power  Available,  hp 
fprintf ( fid4 ,' \n  Rate  of  Climb,  ft/s 


%4.6f’,Uclimb) 
%4 . 6f  1 , cLstar ) 
%  4 . 6f ’ , cD) ; 

%4 . 6f 1 , P/550 }  ; 
%4.6f »,dhdt)  ; 


C.13  BestCIimb.m 


This  file  performs  the  analysis  for  optimum  climb. 

%  BestCIimb.m  (ELiClimb.m) 

□ 

%  Best  climb  routine 

□ 

□ 

AMmax  =  UpperMach; 

%  find  opt  cL  for  max  cL/cD 

□ 

cLoptcLcD=sqrt (pi*AR*Oswald*cDO )  ; 

□ 

□ 

%  corrected  opt  cL/cD 

□ 

if  cLoptcLcD  >  cLmax/1.4 
cLoptcLcD  ~  cLmax/1.4; 

end 

%  h  increment 

nsegments  =  10; 

dh  =  deltah/nsegments; 

%  aerodynamic  drag  cD=cD0+AK*cL**2 
AK=l/pi/AR/ Oswald; 

%  before  start  of  numerical  integration  set  initial  values 
h=altitude-dh; 

W=Win; 

distance^O; 

time-0; 


%  initial  gamma  (rad) 
gamma-0; 

for  i=l : 1 : nsegments 


h=h+dh; 
Atmos; ' 
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%  find  Ustar  (optimum  climb  speed,  Raymer  p.  458,  eq.  17.19) 
UstarRaymer=sqrt ( 2*W/ rho/S*sqrt (AK/3/cDO) ) ; 

%  represent  Prequired  as  AA*U**3  +  BB/U 
%  where 

AA=0 . 5*  rho*S*cD0; 

BB=W,N2/0 . 5/ rho/ S/pi /AR/ Oswald; 

%  opt  Ustar  to  minimize  Preq 
Ustar=sqrt (BB/3/AA) ; 

Ustar=sqrt (Ustar )  ; 

%  associated  Mach  number 
AMstar=Ustar/spdsnd; 

if  AMstar  >  AMmax 

Uclimb=AMmax*spdsnd; 

else 

Uclimb=Ustar ; 

end 

%  Find  cLstar  (based  on  opt  speed) 
cLstar=W/0. 5/ rho/Uclimb^/S; 
cL  =  cLstar; 

%if  cLstar  >  cLoptcLcD 

□ 

%  cL=cLoptcLcD; 

□ 

%end 

□ 


%  Find  corresponding  speed 
Ucl imb=sqrt { 2*W/rho/S/cL) ; 
cD=cD0+AK*cLA2 ; 

%  find  drag 

D  =  0. 5*rho*UclimbA2*S*cD;  %lb 


%  find  power  available 

P  =  550*throttle*Np*  Pmax* { rho/densSL) '"'An  Power;  %ft~lb/sec 

if  ( p-D*Uclimb )  <=  0 
P  =  D*Uclimb  +  10; 

end 

%  Find  rate  of  climb  dh/dt 

□ 

dhdt= ( P-D*Uclimb) /W;  %ft/sec 


□ 

%  find  the  time  it  takes  to  climb  an  amount  dh 

□ 

dt=dh/dhdt;  %sec 

□ 


%find  climb  angle  gamma 

□ 


singamma=dhdt/Uclimb; 


□ 


□ 

□ 

□ 

□ 


%  gamma  in  degrees 
gamma=asin ( s ingamma ) *180/pi ; 
cosgamma-sqrt ( l-singamma^2 ) ; 


%fuel  burnt 

dWdt=-BSFC*  P/ { 3600^ 550 )  ;  %lb/sec 
dW~dWdt*dt ;  %lb 

%  modify  weight 
W=W+dW; 

%  distance 

distance=distance+Uclimb*dt*cosgamma ; 
%  time 

time=time+dt ; 

end 

Wout=W; 


C.14  Cruise.m 


This  file  performs  the  cruise  leg  analysis  and  is  called  directly  fro m  Mission. m . 

%  Cruise.m 

□ 

%  Performs  a  complete  cruise  analysis 

□ 

fprintf ( fid4 , ' \n  * ) ; 
fprintf ( f id4 r  ' \n  Cruise:'); 
fprintf ( fid4 , ’ \n  * ) ; 

IN  =  MissIN { : , LegNumber+1 ) ; 

□ 

option  =  IN ( 1 ) ; 

□ 

altitude  =  IN { 2 ) ; 

□ 

Dist  =  IN{3)*5280;  %miles  to  feet 
BSFC  =  IN  (4) 

Np  =  IN ( 5 ) ; 

Cruisespeed  =  IN (6); 
throttle  =  IN { 7 ) ; 

□ 

RCcruise  =  IN (9) ; 

□ 

cLf raction  =  IN (10) ; 

□ 


cLratio  =  IN(ll); 

□ 

Atmos; 

□ 


□ 

%  Set  Cruise  Conditions  for  Smetana  Stability  Analysis 

□ 

RHO  -  rho; 

□ 

sound  =  spdsnd; 

□ 


□ 

if  option  ==  2 

%  Constant  airspeed  cruise  condition 


else 

%  Use  Breguet  range  equations,  Raymer  pg.105 
Wout  =  Win*exp ( -Dist* (BSFC/ ( 3600*550*Np) J /LDmax) ; 

%  Rate  of  Climb  at  Beginning  of  Cruise 
sigma  =  rho/densSL; 

Power  =  Pmax*sigma^AnPower ;  %hp 
AA  -  Np*550* Power/Win; 

BB  =  0. 5*rho*S*cD0/Win; 

CC  =  Win/pi/AR/0swald*2/rho/S; 

Uopt  =  sqrt ( sqrt (CC/3/BB) } ; 

RC  =  AA- BB* Uopt ^3-CC/ Uopt ; 

%  Optimum  Speed  at  Cruise 
cLstar  -  sqrt (pi*AR*Oswald*cDO ) ; 
if  cLstar  >  cLratio*cLmaxClean 
cLstar  =  cLratio* cLmaxClean; 

end 

cLstar  =  cLstar*cLf  raction;  >■ 

Speed  =  sqrt { 2*Win/S/cLstar/ rho ) ; 

MachCruise  -  Speed/spdsnd; 
cL  =  cLstar; 

cD  =  cDO+cLA2/pi/AR/Oswald; 

Drag  =  0 . 5*rho*Speed^2*S*cD; 

%  Power  Required 

Preq  =  Drag*Speed;  %ft-lb/sec 

%  Find  Max  Speed 

Power  -  Power*55Q; 

Ustart  =  Speed; 

□ 

Uend  =  20*Ustart; 

□ 

Maxspeed; 


□ 

□ 

□ 

□ 


%  Power  Available 

Pcruise  =  throttle* Power*Np;  %ft-lb/sec 
Ucr  =  WindMax; 

Pwind  =  0 . 5* rho*Ucr^3*S*CD0+Win'N2  /  .  5/  rho/Uc r/ S/pi /AR/ Oswald;  %ft-lb/sec 
%  Rate  of  climb  must  be  greater  than  desired  rate  of  climb 


gCR(l,l)  =  1-RC/RCcruise ; 

%  Power  available  must  be  greater  than  power  required 
gCR(2,l)  =  Preq/ Pcruise-1 ; 

%  MachCruise  must  be  less  than  UpperMach 
gCR(3,l)  =  MachCruise/UpperMach  -1; 

%  Max  speed  must  be  greater  than  max  wind  speed 
gCR(4,l)  =  WindMax/Umax-1 ; 


end 

U  =  Cruisespeed'; 

M  =  U/sound; 

%  Dynamic  Pressure 
qD  =•  0. 5*RHO*lT2; 


WratiosA { LegNumber , 1 )=Wout/Win; 
Win  =  Wout; 


gmission  =  [gmission; gCRl ; 

fprintf { fid4 ,' \n  Optimum  Cruise  Speed,  ft/s 

fprintf ( f id4 , ' \n  Mach  Number 

fprintf {fid4, '\n  Optimum  Lift  Coefficient 

fprintf { fid4 , '\n  Cruise  Drag  Coefficient, 

fprintf ( fid4 ,  ' \n  Power  Available,  hp 

fprintf ( fid4 , 1 \n  Power  Required,  hp 

fprintf ( fid4 ,  ' \n  Rate  of  Climb,  ft/s 

fprintf ( fid4 \n  Max  Speed  at  Cruise  Altitude, ft/s 


%4 . 6f 1 , Speed ) ; 

%4 . 6f * , MachCruise)  ; 
%4 . 6f ’ , cLstar )  ; 

% 4 . 6f  * ,  cD)  ; 

%4.6f,  Pcruise/550)  ; 
%  4 . 6f 1 , Preq/ 550 ) ; 

%  4 . 6  f 1 f  RC ) ; 

%  4 . 6f 1 , Umax } ; 


C.15  Loiter.m 


This  file  performs  the  loiter  leg  analysis  and  is  called  directly  by  Mission.m. 

%  Loiter.m 

□ 

%  This  file  calculates  the  fuel  burn  during  loiter  using  the  Breguet  endurance 
%  equation 

fprintf { fid4,  '\n' ) ; 
fprint f ( fid4 , ’ \n  Loiter:'); 
fprintf (fid4, '\n‘ ) ; 

IN  =  MissIN { : , LegNumber+1 ) ; 

□ 

option  =  IN (1) ; 

□ 

altitude  =  IN(2)  ; 

□ 

Time  =  IN (3) *60;  %Convert  to  seconds 

□ 

BSFC  *  IN (4) ; 

□ 

Np  ~  IN ( 5 ) ; 

□ 

Vel  =  IN ( 6 ) ; 
throttle  =  IN (7 ) ; 

RCloiter  =  IN ( 9) ; 

Atmos; 


%  Implement  Breguet  endurance  equation 

Wout  =  Win* exp ( -Time* ( BSFC*Vel/ ( 3600*550*Np) ) / ( 0 . 866*LDmax ) ) ; 

%  Optimum  Speed  at  Loiter 
sigma  =  rho/densSL; 
cLstar  =  sqrt ( 3*pi* AR*Oswald*cDO ) ; 
if  cLstar  >  cLratio*cLmaxClean 
cLstar  =  cLratio*cLmaxClean; 

end 

cLstar  ==  cLstar*cLf caction; 

Speed  =  sqrt  {  2*Win/S/cLsta  r/rho )  ; 

MachLoiter  -  Speed/spdsnd ; 
cL  =  cLstar; 

cD  =  cD0+cLA2/pi/AR/ Oswald ; 

Drag  =  0 . 5*rho*SpeedA2*S*cD; 


%  Power  Required 

Preq  =  Drag*Speed;  %ft-lb/sec 

Power  =  550*  Pmax*  sigma '"'An  Power ;  %ft-lb/sec 

%  Find  Max  Speed 

Ustart  =  Speed; 

Uend  =  20*Ustart; 

Maxspeed; 

%  Power  Available 

Ploiter  =  throttle* Power*Np;  %ft-lb/sec 
Ulo  =  WindMax; 

Pwind  =  0. 5*rho*UloA3*S*CD0+Win^2/ . 5/rho/Ulo/S/pi/AR/Oswald;  %ft-lb/sec 


%  Power  available  must  be  greater  than  power  required 
gLT(l,l)  =  Preq/ Power-1 ; 

%  MachLoiter  must  be  less  than  UpperMach 
gLT(2,l)  =  MachLoiter/UpperMach-1 ; 

%  Max  speed  must  be  greater  than  max  wind  speed 
gLT(3,l)  =  WindMax/Umax-1 ; 


WratiosA(LegNumber , 1 ) =Wout/Win; 
Win  -  Wout; 


gmission  =  [gmission; gLT] ; 

fprint f { f id4 , * \n  Optimum  Loiter  Speed,  ft/s 

fprintf { f id4 , 1 \n  Mach  Number 

fprintf (fid4, ' \n  Optimum  Lift  Coefficient 

fprintf ( fid4 , 1 \n  Loiter  Drag  Coefficient 

fprintf { fid4 \n  Power  Available,  hp 

fprintf { fid4 ,’ \n  Power  Required,  hp 

fprintf ( fid4 \n  Max  Speed  at  Loiter  Altitude, ft/s 


%  4 . 6 f 1 , Speed } ; 

% 4 . 6f ' , MachLoiter)  ; 
%4 . 6f ' , cLstar)  ; 

%4 . 6f 1 , cD) ; 

%4 . 6f ' ,  Ploiter/ 550)  ; 
%4 . 6f 1 , Preq/550) ; 

%  4 . 6f ' , Umax ) ; 


C.16  Landing.m 

This  file  performs  the  complete  landing  analysis  and  is  called  by  Mission.m. 

%  Landing.m 

□ 

%  This  file  allows  for  two  options  for  the  calculation  of  fuel  burn  during 

□ 

%  a  combined  descent  and  landing. 


fprintf { f  id4 , ' \n ' ) ; 

fprintf ( fid4 \n  Descent  and  Landing:1); 
fprintf ( f id4 , ' \n ' ) ; 

IN  =  MissIN { : , LegNumber+1 ) ; 

□ 

option  =  IN ( 1 ) ; 

□ 

altitude  =  IN(2) ; 

□  - 
SpeedLand  -  IN (6) ; 

□ 

RunwayLand  -  IN (8); 

□ 

gammabar  =  IN (12); 

□ 

deltaN  =  IN ( 1 3 ) ; 

□ 

groundFrcition  =»'  IN(14); 

Hland  =  IN(15) ; 

cLTD  -  cLmax/sqrt ( 1 . 21 ) ; 

Atmos; 

if  option  ==  2 
else 

%  Statistical  landing  analysis 

%  Descend  and  land  (see  Raymer,  Table  3.2)  W5  — >  W6 
Wout= . 995*Win; 

speed  =  sqrt ( 2*Win/S/rho/cLTD) ; 

%  Average  landing  speed 
Avspeed  =  speed/sqrt ( 2 ) ; 
cLrunway  =  0.8*cLTD; 

Lift  —  .  5*rho*Avspeed^2*S'lfcLrunvvray; 

cD  =  ( 1  +  cDFlapRat io+cDLGratio )  ‘>rcDO+cL/N2/pi/AR/Oswald*,groundef  f  ect ; 
Drag  =  0 . 5* rho*Avspeed/'2*S*cD; 

Friction  =  (Win  -  Lift ) *groundFriction; 

%  Average  decceleration  upon  landing 
avDecel  =  (Drag  +  Friction) /Win*GRAVIT; 
abaroverg  =  avDecel/GRAVIT; 

%  Calculate  needed  runway  length 

Sland  =  1/ abaroverg* ( 1-gammabar A2/deltaN ) +gammabar/deltaN; 

Sland  =  Sland*l . 69*Win/S/Hland/rho/GRAVIT/cLmax; 

Sland  =  Sland+l/gammabar ; 

Sland  =  Sland*Hland ; 

%  Add  FAA  Margin  of  Safety  for  pilot  technique 
Sland  =  Sland*l .67; 

%  Required  runway  for  landing  must  be  less  than  actual  runway 
gLD(l,l)  -  Sland/RunwayLand-1 ; 

%  Landing  speed  must  be  less  than  or  equal  to  desired  landing  speed 
gLD(2,l)  =  Avspeed/SpeedLand-1 ; 


end 

WratiosA ( LegNumber , 1 ) =Wout /Win; 

Win  =  Wout; 

gmission  =  (gmission;  gLD]  ; 

fprintf ( fid4 \n  Average  Landing  Speed,  ft/s  =  %4 . 6f Avspeed ) ; 

fprintf ( fid4, '\n  Runway  Lift  Coefficient  =  %4 . 6f f, cLrunway ) ; 


fprintf { f id4  , ' \n  Runway  Drag  Coefficient 
fprintf ( fid4 , V\n  Needed  Runway  Length,  ft 


=  %4.6f\cD); 

=  %4 . 6f ' ,Sland) ; 


C.17  Atmos.m 


This  file  determines  the  atmospheric  properties  for  a  given  altitude.  It  is  called 
throughout  the  mission  analysis  by  each  of  the  mission  leg  analysis  files. 

% Atmos.m 
O 

%determines  atmospheric  properties  up  to  25  km 

□ 

h  -  altitude* . 304 8; 

□ 

□ 

%  MKS  units 

□ 

0 

rhoO  =1.225; 
tO  =  288.16;  • 
pO  =  1 . 0.1325*  10^5 ; 
viscO  =  1.7894*10^-5; 

if  h  >  25000 

fprintf (fidl,  '  Altitude  greater  than  25000  meters,  stop.  h= ' , h ) ; 
error { 'Altitude  greater  than  25000  meters'); 

end 


if  h  <=  11000 

t  =  tO  -  (6.5*10~-3)*h; 
rho  =  rhoO*  ( l-h/4  4300)  ~4 256; 
else 

t  =  tO-71.5; 

rhollOOO  =  rhoO* {1-1 10 00/44300)^4 .256; 
rho  =  rholl000*exp( (11000-h) /6340) ; 

end 

vise  =  viscO* (t/tO) ^0.75; 
spdsnd  =  20 . 066*sqrt ( t ) ; 
delta  =  rho/rhoO; 

%  Convert  to  English  units! 

□ 

rho  =  rho*0. 00194032653; 
vise  =  vise* . 0208 94 065; 
spdsnd  =  spdsnd/ . 304 8; 
t  =  1.8*t;  %  deg  Rankine 
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C.  18  Maxspeed.m 

This  file  determines  the  maximum  speed  of  the  aircraft  at  the  specified  conditions.  It  is 
called  during  the  cruise  and  loiter  mission  leg  analysis  files. 

%  Maxspeed.m 

%  Determines  maximum  airspeed 

□ 

□ 

%  find  max  speed 

□ 

n=100; 

□ 

Umax=0; 

□ 

dU= (Uend-Ustart ) /n; 

□ 

Uo-Ustart-dU; 

□ 

□ 

for  i=l : 1 : n+1 

□ 

Uo=Uo+dU; 

□ 

,  Pavailable=Np* Power*throttle; 

□ 

CLspeed  =  Win/ ( . 5*S*rho*Uo~2 ) ; 

Prequired=  (0. 5*rho*S*Uo^2*  (cDO  +  CLspeed^2/  (AR*Oswald*pi  }  )  }  *Uo; 
Excess-Pavailable-Prequired; 

•  if  i==l 

Excess01d=Excess; 

Uold=Uo; 

else 

ExcessNew=Excess; 

if  (ExcessOld  >=  0 ) & ( ExcessCO ) 

%  interpolate 

Umax=Uold+ (Uo-Uold)* ( O-ExcessOld ) / (ExcessNew-ExcessOld ) ; 

else 

Excess01d=Excess; 

Uold=Uo; 

end 

end 

end 

if  Umax  ==  0 
Umax=999; 


end 


C.19  Weights.m 

This  file  performs  the  component  weight  breakdown  analysis  and  determines  the 
moments  of  inertia.  It  is  called  directly  by  analyze.m. 

%  Weights.m 

□ 

%  This  program  acts  as  a  subroutine  to  the  main  design  analysis  code.  It  serves  to 

□ 

%  estimate  the  aircraft  component  weights,  total  aircraft  weight,  and  the  location  of 

□ 

%  the  center  of  gravity  for  an  initial  configuration.  Equations  and  estimates  are 
%  taken  directly  from  Raymer's  text,  "Aircraft  Design:  A  Conceptual 
%  Approach." 

%********************************** ************************************************** 

%  Calculate  component  weights  in  pounds  and  masses  in  slugs 
%  Wing 

Wwing  =  0. 036*S~0 . 75 8*Wfw^0 . 0035*  (AR/cos  (SA)  ^2)  ^0. 6*qD/''0 . 006*-TR^0 . 04*  .  .  . 

( 1 00* tc/cos ( SA ) )~-0.3* (Nz*Wdg ) ~0 . 4  9; 

Mwing  =  Wwing/ GRAVIT; 

%  Horizontal  Tail 

Wht  =  0.016* (Nz*Wdg  J^O. 414*qD^ 0.168* ST^O. 896* (100*tc/cos (SA) P-0.12*. . . 

(AR/cos  (SAH)^2)/N0. 043*TRT'"~0 . 02; 

Mht  =  Wht /GRAVIT; 

%  Vertical  Tail 

Wvt  =  0.073* (1+0. 2*HtHv) * (Nz*Wdg } A0 . 37 6*qD^0 . 122*SV^0 . 873* ( 100* t c/cos ( SAvt ) ) ~-0. 49* . . . 

(AR/cos (SAvt ) A2) ~0.357 *TRvtA0. 039; 

Mvt  =  Wvt /GRAVIT; 

%  Fuselage 

Wpress  =  11.9  +  (Vpr*  Pdelta  ) ''0 . 271;  %Check  units?  inches  and  feet  problem. 

Wf use  =  0. 052*Sf^l . 086* (Nz*Wdg ) ^0 . 177 ^Tl^-O . 051* (LB/WFUSP-0. 07  2*qD~0. 241+Wpress; 

Mf use  =  Wf use/ GRAVIT; 

%  Main  Landing  Gear 

Wmain  =  0 . 095*  (N1*W1 )  ^0 . 7 68*  ( Lm/12  )  "'0 . 4  09; 

Mmain  =  Wmain/GRAVIT; 

%  Nose  Landing  Gear 

Wnose  =  0. 125* (N1*W1 P0. 566* (Ln/12P0. 845; 

Mnose  =  Wnose/GRAVIT; 

%  Total  Installed  Engine  Weight 
Wengine  =  2 . 575*Wen^0 . 922*Nen; 

Mengine  -  Wengine/GRAVIT; 

%  Fuel  System 

Wfuel  =  2.4  9*  (Vt/Ntr  0.726*  (1/  (1+Vi/Vt)  P 0. 363*NP0 . 242*Nen~0. 157; 

Mfuel  =  Wfuel /GRAVIT; 

%  Flight  Controls 

Wcontrol  =  0. 053*LB^1 . 536*B"0. 371* (Nz*Wdg*10A-4 ) A0. 8; 

Mcontrol  =  Wcontrol/GRAVIT; 

%  Hydraulics 
Whydra  =  0.001*Wdg; 
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Mhydra  =  Whydra/GRAVIT; 

%  Avionics 

Wavion  =  2 . 117*Wuav^0 . 933; 

Mavion  =  Wavion/GRAVIT; 

%  Electrical 

Welec  =  12.57* (Wfuel+  Wavion ) *0 . 51 ; 

Melee  =  Welec/GRAVIT; 

%  Air  Conditioning  and  Anti-ice 

Wac  ~  0. 265*Wdg^0. 52*Np^0 . 68*Wavion/N0. 17*m^0. 08; 

Mac  *  Wac/GRAVIT; 

%  Furnishings 

Wfurn  =  0 . 0582*Wdg-65; 

Mfurn  =  Wf urn/GRAVIT; 

%  Calculated  Weight  Using  Raymer's.  Statistical  Group  Weights  Method 
Wtotal  —  Wwing+Wht+Wvt+Wfuse+Wmain+Wnose+Wengine+Wf uel+Wcontrol+Whydra+ . ; . 

Wavion+Welec+Wac+Wfurn+Wppass*Npassengers+Wpcrew*Ncrew+Wpayload; 

Mtotal  =  Wtotal /GRAVIT; 

MS  =Mtotal ; 

%  Considered  adding  capability  for  eg  travel 
%  Calculated  Empty  Weight 
%  Wempty  =  Wtotal  -  Wfuel; 

%  Calculate  Aircraft  C.G. 

Xcg  =  (CGwing*Wwing+CGht*Wht+CGvt*Wvt+CGfuse*Wfuse+CGmgr*Wmain+CGngr*Wnose+. .. 
CGeng*Wengine+CGfuel*Wfuel+CGctrl*Wcontrol+CGhydr*Whydra+CGelec*Welec+ . . . 
CGavion*Wavion+CGac*Wac+CGf urn*Wf urn ) / ( Wwing+Wht+Wvt+Wf use+Wmain+Wnose+ . . . 
Wengine+Wfuel+Wcontrol+Whydra+Welec+Wavion+Wac+Wfurn ) ; 

%  Calculate  Moments  of  Inertia 

%  Values  from  Table  16.1,  pg.444  in  Raymer ...  dependent  on  aircraft  type 
%  Values  modified  to  match  known  moments  of  inertia 
Rx  =  0.277826; 

Ry  =  0.46501; 

Rz  =  0.46754; 

%  Equations  from  Raymer  pg.443 
IXX  =  B/'2*Wtotal*Rx/s2/  (8*GRAVIT)  ; 

IYY  =  LB"2*Wtotal*Ry"2/ (8*GRAVIT) ; 

IZZ  =  {  (B+LB)/2)/'2*Wtotal*Rz/s2/(8*GRAVIT)  ; 

IXZ  =  0;  %  By  assumption 


C.20  LandingGear.m 

This  file  determines  the  tip-over  and  ground  clearance  angles.  It  is  called  directly  by 
analyze,  m. 

%  LandingGear.m 

%  This  routine  was  developed  to  calculate  the  tip  over  angle,  longitudinal  ground 
%  clearance  criterion,  and  the  landing  gear  static  loads  for  constraint  purposes. 

%  Developed  5  June  2000 
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%  Assume  length  of  main  landing  gear  includes  tire  radius  (ft) 

%  Calculate  tip  over  angle  (ref.  Figure  9.1a  Roskam) 

Zgear  =  l/2*Hgear+ZT+Lm/12; 

Xgear  =  CGmgr-XM; 

%  This  angle  is  typically  15  deg... we  will  look,  for  tipangle  between  14 
%  Two  design  options:  1.  Decrease  main  gear  length 


tipangle  =  atan (Xgear/Zgear ) *180/ (pi )  ; 


2.  Move  main  gear 


and 
a  ft 


16  deg. 


%  Longitudinal  ground  clearance:  Approximately  15  degrees  for  general  aviation 
%  Two  design  options:  1.  Increase  main  gear  length 


clearance  =  atan ( Zgear/ (LB-CGmgr )) *180/ (pi )  ; 


2.  Move  main  gear  aft 


a/c 


%  We  want  the  landing  gear  to  take  10%  of  the  TOGW  on  the  nose  gear  and  90%  on 
%  the  main  gear  (reg.  Figure  9.2a  Roskam) 

Pnose  =  Wguess*Xgear/ (CGmgr-CGngr ) ;  %Equation  9.1  Roskam 
Pmain  -  Wguess* (XM~CGngr) /( (CGmgr-CGngr )) ;  %Equation  9.2  Roskam 


C.21  VdocLongStab.m 

This  file  is  slightly  modified  from  the  original  Smetana  code.  It  calculates  the  lontiudinal 
stability  derivatives.  It  is  called  by  analyze.m. 


%  April  1 9,  2000 

% - 

%  VdocLongStab.m  Longitudinal  Stability  Derivatives 
% - : — - - 

%  General  Aviation,  Low  Subsonic  Aircraft 
% 

%  For  the  Longitudinal  Case  this  program  calculates: 

%  1)  Non-Dimensional  Stability  Derivatives 

%  2)  Dimensional  Stability  Derivatives 

% 

%  Written  by  Prof.  Frederick  Smetana 
% 

%  Derivation  of  Equations  of  Motion  is  based  on 

%  'Dynamics  of  the  Airframe',  Bureau  of  Aeronautics  Report,  AE-61-4II. 

% 

%  ASSUMPTIONS: 


% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 


% 


1)  THE  AIRFRAME  IS  ASSUMED  TO  BE  A  RIGID  BODY. 

2)  THE  EARTH  IS  ASSUMED  TO  BE  FIXED  IN  SPACE,  AND,  UNLESS 
SPECIFICALLY  STATED  OTHERWISE,  THE  EARTH'S  ATMOSPHERE  IS 
ASSUMED  TO  BE  FIXED  WITH  RESPECT  TO  THE  EARTH. 

3)  THE  MASS  OF  THE  AIRPLANE  IS  ASSUMED  TO  REMAIN  CONSTANT  FOR 
THE  DURATION  OF  ANY  PARTICULAR  DYNAMIC  ANALYSIS. 

4)  THE  X-Z  PLANE  IS  ASSUMED  TO  BE  A  PLANE  OF  SYMMETRY. 

5)  THE  DISTURBANCES  FROM  THE  STEADY  FLIGHT  CONDITION  ARE  ASSUMED 
TO  BE  SMALL  ENOUGH  SO  THAT  THE  PRODUCTS  AND  SQUARES  OF  THE 
CHANGES  IN  VELOCITIES  ARE  NEGLIGIBLE  IN  COMPARISON  WITH  THE 
CHANGES  THEMSELVES.  ALSO,  THE  DISTURBANCE  ANGLES  ARE  ASSUMED 
TO  BE  SMALL  ENOUGH  SO  THAT  THE  SINES  OF  THESE  ANGLES  MAY  BE 
SET  EQUAL  TO  THE  ANGLES  AND  THE  COSINES  SET  EQUAL  TO  ONE. 
PRODUCTS  OF  THESE  ANGLES  ARE  ALSO  APPROXIMATELY  ZERO  AND  CAN 
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%  BE  NEGLECTED.  AND,  SINCE  THE  DISTURBANCES  ARE  SMALL,  THE 

%  CHANGE  IN  AIR  DENSITY  ENCOUNTERED  BY  THE  AIRPLANE  DURING  ANY 

%  DISTURBANCE  CAN  BE  CONSIDERED  TO  BE  ZERO. 

%  6)  DURING  THE  STEADY  FLIGHT  CONDITION,  THE  AIRPLANE  IS  ASSUMED 

%  TO  BE  FLYING  WITH  WINGS  LEVEL  AND  ALL  COMPONENTS  OF  VELOCITY 

%  ZERO  EXCEPT  U  SUB  0.  W  SUB  0=0  BECAUSE  THE  STABILITY  AXES 

%  WERE  CHOSEN  AS  THE  REFERENCE  AXES. 

%  7)  THE  FLOW  IS  ASSUMED  TO  BE  QUASI-STEADY. 

% 

%  The  Pertinent  Aircraft  Characteristics  are  Defined  as  Follows: 

% 

%  Flight  Conditions  (Ref  Flight) 

% 


% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

'% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 


RHO  -  Density  at  altitude  (slug/ft^3) 

U  -  Aircraft  speed  (ft/s) 

GAMMA  -  Flight  Path  Angle  (Deg) 

GRAVIT  -  Acceleration  of  Gravity 

GCOSGM  and  GSINGM  are  the  Products  of  the  Acceleration  Due  to 
GRAVITY  (Assumed  =  32.2  ft/s~2  for  this  Altitude  Range)  and  the 
COSINE  and  SINE  Respectively  of  the  Initial  Flight  Path  Angle, 

GAMMA,  (Usually  Zero  for  Level  Flight). 

MS  -  Mass  of  the  Aircraft  (slugs) 

IYY  -  Moment  of  Inertia  About  the  Y-Axis  (Slug-ft/N2) 

THRUST  -  Aircraft  Thrust  (lb) 

ZJ  -  Perpendicular  Distance  from  the  Center  of  Gravity  to  the  Thrust 
Line  (Positive  for  the  C.G.  Above  the  Thrust  Line,  ft) 
COSXZ  -  Cosine  of  the  Angle  Made  Between  the  Thrust  Axis  and 
the  Wind  Axis 

SINXZ  -  Sine  of  the  Angle  Made  Between  the  Thrust  Axis  and 
the  Wind  Axis 
S  -  Wing  Area  (ft^2) 

ST  -  Horizontal  Tail  Area  (ft^2) 

B  -  Wing  Span  (ft) 

BT  -  Horizontal  Tail  Span  (ft) 

EFF  -  Efficiency  of  the  Horizontal  'Tail 
CHE  -  Root  Chord  of  the  Elevator  (ft) 

TR  -  Taper  Ratio  of  the  Wing 

TRT  -  Taper  Ratio  of  the  Horizontal  Tail 

ITAIL  -  Incidence  of  the  Horizontal  Tail  (Deg) 

CLA2DW  -  2-D  Lift  Curve  Slope  of  the  Wing  (1/rad) 

CLA2DT  -  2-D  Lift  Curve  Slope  of  the  Horizontal  Tail  (1/rad) 

CDO  -  Parasite  Drag  Coefficient 

CDA2DW  -  2-D  Drag  Curve  Slope  of  the  Wing  (1/rad) 

ALPHA  -  Wing  Angle  og  Attack  (Deg) 

IWING  -  Incidence  Angle  of  the  Wing  (Deg) 

LT  -  Distance  from  the  C.G.  to  the  Quarter-Chord  of  the  Horizontal 
Tail  (ft) 

LT1  -  Distance  from  the  Wing  Quarter-Chord  to  the  Quarter-Chord  of 
the  Horizontal  Tail  (ft) 

XA  -  Chordwise  Distance  from  the  C.G.  to  the  Wing  Aerodynamic 
Center  (Positive  for  C.G.  Behinde  the  Wing  A.C.,  ft) 

ZA  -  Vertical  Distance  Ffrom  the  C.G.  to  the  Wing  A.C. 

(Positive  for  the  C.G.  Below  the  Wing  A.C.,  ft) 

LB  -  Length  of  the  Fuselage  (ft) 

WFU.S  -  Maximum  Width  of  the  Fuselage  (ft) 

XFUS  -  Distance  from  the  Nose  to  the  Wing  Quarter-Chord  (ft) 

XCG  -  Chordwise  Distance  from  the  C.G.  to  the. Wing  Quarter-Chord 
(Positive  for  the  C.G.  Ahead  of  the  Wing  Quarter-Chord,  ft) 

ZT  -  Vertical  Distance  from  the  C.G.  to  the  Thrust  Line 
(Positive  for  Thrust  Line  Below  the  C.G.,  ft) 

SELEV  -  Area  of  the  Elevator  (ft~2) 

AR  -  Wing  Aspect  Ratio 

ART  -  Horizontal  Tail  Aspect  Ratio 


156 


% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 


% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 


% 

% 


% 

% 

% 

% 

% 

% 

% 


CH  -  MAC  of  the  Wing 
CHT  -  Horizontal  Tail  Chord 

TAU  -  Correction  Factor  for  Induced  Angle  of  the  Wing 

TAU1  -  Correction  Factor  for  Induced  Angle  of  the  Wing  for  TR  =  1 

El  -  Induced-Angle  Span  Efficiency  Factor  of  the  wing 

CLAW  -  3-D  Wing  Lift  Curve  Slope  (1/rad) 

TAUT  -  Correction  Factor  for  Induce  Angle  of  the  Horizontal  Tail 
TAU IT  -  Correction  Factor  for  Induced  Angle  of  the  Horizontal  Tail 
if  TRT  =  1 

E1T  -  Induced-Angle  Span  Efficiency  Factor  of  the  Horizontal  Tail 
DELTA  -  Correction  Factor  for  Induced  Drag  of  the  Wing 
DELTA1  -  Correction  Factor  for  Induced  Drag  of  the  Wing  for  TR  =  1 
E  -  Oswald’s  Span  Efficiency  Factor  of  the  Wing 
CLW  -  3-D  Wing  Lift  Coefficient 
DW  -  Downwash  Angle  at  the  Horizontal  Tail 
ALPHAT  -  Angle  of  Attack  at  the  Horizontal  Tail 
S RAT 10  -  Ratio  of  the  Elevator  Area  to  Horizontal  Tail  Area 
DADDE  -  Elevator  Efficiency  Factor;  Change  in  the  Tail  Angle 
of  Attack  Due  to  Elevator  Deflection 
CLAT  -  3-D  Horizontal  Tail  Lift-Curve  Slope  (1/rad) 

CLT  -  3-D  Horizontal  Tail  Lift  Coefficient  Needed  for  Equilibrium 
ALPHAR  -  Angle  of  Attack  Required  to  Acheive  the  Necessary 
Tail  Lift  Coefficient 

DALPHA  -  Effective  Angle  of  Attack  Which  Must  Be  Supplied  by 
the  Elevator  to  Obtain  Equilibrium 
DELTAS  -  Elevator  Deflection  Required  for  Equilibrium 
CL  -  Total  3-D  Airplane  Lift  Coefficient 
CD  -  Total  3-D  Airplane  Drag  Coefficient 
CM  -  Total  3-D  Airplane  Pitching  Moment 
CT  -  Total  3-D  Airplane  Thrust  Coefficient 
DEDA  -  Change  in  Downwash  With  Wing  Angle  of  Attack 
CLA  -  Total  3-D  Airplane  Lift  Curve  Slope  (1/rad) 

CDA  -  3-D  Airplane  Drag  Curve  Slope  .( 1/rad) 

CMAW  -  Change  in  Wing  Pitching  Moment  Due  to  Angle  of  Attack  (1/rad) 

CMAT  -  Change  in  Horizontal  Tail  Pitching  Moment  Due  to  Angle 
of  Attack  (1/rad) 

XLBo  -  Ratio  of  the  Distance  From  the  Nose  to  the  Wing  Quarter-Chord 

to  the  Total  Fuselage  Length 

KF  -  Empirical  Factor  for  Fuselage  or  Nacelle  Contributions  to  CMA 
CMAFUS  -  Change  in  Fuselage  Pitching  Moment  Due  to  Angle  of  Attack  (1/rad) 
CMA  -  Total  Airplane  Change  in  Pitching  Moment  Due  to  Angle  of 
Attacl  (1/rad) 

CLDA  -  Change  in  Airplane  Lift  Coefficient  With  Rate  of  Change 
of  Angle  of  Attack 

CDDA  -  Change  in  Airplane  Drag  Coefficient  With  Rate  of  Change  of 
Angle  of  Attack 

CMDA  -  Change  in  Airplane  Pitching  Moment  Coefficient  With  Rate  of 
Change  of  Angle  of  Attack 

CLQ  -  Change  in  Airplane  Lift  Coefficient  With  Pitching  Rate 

CDQ  -  Change  in  Airplane  Drag  Coefficeint  With  Pitching  Rate 

CMQ  -  Change  in  Airplane  Pitching  Moment  Coefficient  With  Pitching  Rate 

CLDE2D  -  2-D  Elevator  Effectiveness 

CLDE  -  Change  in  Airplane  Lift  Coefficient  with  Elevator  Deflection  (1/rad) 

CDDE  -  Change  in  Airplane  Drag  Coefficient  with  Elevator  Deflection  (1/rad) 

CMDE  -  Change  in  Airplane  Pitching  Moment  Coefficient  with  Elevator 

Deflection  (1/rad) 

CLU,  CDU,  CMU,  CTU  -  Change  in  Lift,  Drag,  Pitching  Moment,  and 

Thrust  Coefficients  with  Perturbation  Airspeed 
CTRPM  -  Change  in  Thrust  Coefficient  with  Engine  Speed 


ALTHOUGH  THE  PROGRAM  DOES  NOT  CALCULATE  THE  STABILITY  DERIVATIVES 
DUE  TO  FLAP  DEFLECTION  THESE • DERIVATIVES  CAN  BE  CALCULATED  AND 
THEN  READ  INTO  THE  PROGRAM  AS  CLDE,  CDDE,  AND  CMDE. 


%  Open  output  file 

fidl  “  -fopen  {  1  LongStabOut .  txt ' ,  'w'  )  ; 

fprintf  (fidl,  ’Solution  for  Smetana  via  MATLAB'); 
fprintf  ( fidl,  ' \n 1 ) ; 

%  Echo  Check  of  Wing  Input  Data 
fprintf ( fidl \n  Flight  Condition')  ; 

fprintf  (  fidl,  ' \n  Density-,  slug/ft~3  =  %4.6f',RHO); 

fprintf { fidl, ' \n  Velocity,  ft/s  =  %4.2f',U); 

fprintf (fidl, '\n  Flight  Path  Angle,  rad  «  %  4 . 2f ' , GAMMA) ; 
fprintf ( fidl, ’ \n  Gravity,  ft/s^2  =  %4 . 2f ' , GRAVIT ) ; 

f printf ( f idl , ' \n  Mass,  slugs  =  %4.2f',MS); 

fprintf  { fidl,  »\n  Iyy,  slug*ftA2  =  %4.2f',IYY); 

fprintf (fidl, '  \  n  '  )  ; 
fprintf ( fidl, ' \n  Wing  Data'); 

fprintf ( fidl, ' \n  Wing  Area,  ft^2  =  %4.2f',S); 

fprintf ( fidl , 1 \n  Wing  Span,  ft  =  %4.2f',B); 

fprintf { fidl ,' \n  Taper  Ratio  =  %4.2f',TR); 

fprintf (fidl, '\n  Wing  incidence,  deg  =  %4 . 2f ' , IWING) ; 

fprintf ( fidl, ' \n  a.c.  x-coord.,  ft  =  %4.2f',XA); 

fprintf ( fidl, ’ \n  a.c.  z-coord.,  ft  =  %4.2f',ZA); 

fprintf  (fidl,. ' \n  cL-alpha  Wing  2D  =  %4 . 2f ' , CLA2DW) ; 

fprintf ( fidl, ' \n  cD-alpha  Wing  2D  =  %4 . 2f ' , CDA2DW) ; 

fprintf (fidl, 'Xn' )  ; 

fprintf ( fidl, ' \n  Horizontal  Tail  Data'); 
fprintf ( fidl, ' \n  Tail  Area,  ft^2  =  %4.2f',ST); 

fprintf ( fidl, ' \n  Tail  Span,  ft  =  %4.2f',BT); 

fprintf ( fidl, ' \n  Taper-Ratio  =  %4.2f’,TRT); 

fprintf ( fidl, ' \n  Tail  incidence,  deg  =  %4 . 2f ’ , ITAIL) ; 

fprintf ( fidl, ' \n  Lt  eg  to  .25  ctail  =  %4.2f',LT); 

fprintf ( fidl, ' \n  Lt  .25  wing  to  .25  tail  =  %4.2fT,LTl); 

fprintf ( fidl, ' \n  zT,  ft  =  %4.2f',ZT); 

fprintf ( fidl, ’ \n  Tail  efficiency  =  %4.2f',EFF); 

fprintf (fidl, '\n  cL-alpha  Tail  2D  =  %4 . 2f ' ,CLA2DT) ; 

fprintf ( fidl , ' \n ’ ) ; 
fprintf  (  fidl ,’ \n  Elevator  Data'.); 

fprintf ( fidl, ’ \n  Elevator  Area,  ft~2  =  %4.2f  ',SELEVJ; 

fprintf  {  fidl,  *\n  Elevator  Chord,  ft  =  %4 . 2f  , CHE )  ; 

fprintf ( fidl, ’ \n  Elevator  Spna,  ft  =  %4.2f  ',BE); 

fprintf (fidl, 'Xn* )  ; 
fprintf ( fidl ,' \n  Fuselage  Data’); 

fprintf ( fidl, 1 \n  Body  length,  ft  =  %4.2f  ’,LB); 

fprintf ( fidl, ' \n  Max  diameter,  ft  =  %4.2f  ’,WFUS)  ; 

fprintf ( fidl, 1 \n ' ) ; 

fprintf ( fidl, ' \n  Configuration  Data'); 

fprintf ( fidl, ' \n  Location  of  a.c.,  ft  =  %4.2f  ' ,XFUS); 

fprintf ( fidl, ' \n  Location  of  c.g.,  ft  .  =  %4.2f  ’,XCG)  ; 

fprintf ( fidl, ’ \n  Zero-lift  drag  coeff  =  %4.2f  ’,CD0)  ; 

fprintf (fidl, ’Xn' )  ; 
fprintf ( fidl ,' \n  Thrust  Data'); 

fprintf ( fidl, 1 \n  Thrust  line  from  c.g  =  %4.2f  ',ZJ); 

fprintf (fidl, '\n  COSXz  =  %4.2f  ',COSXZ); 

fprintf ( fidl, ' \n  SINXz  =  %4.2f  *,SINXZ); 

K=1 ; 

%  The  original  Smetana  Code  used  mean  geometric  chords  and 
%  not  mean  aerodynamic  chords.  The  original  equations  are  commented 
%  out  and  replaced  by  eqs.  for  mean  aerodynamic  chords. 


•%  note:  ch  here  is  a  chord  and  NOT  a  hinge  moment  coefficient. 


%  original  equations  (canceled) 

%  CH=S/B 

%  CHT=ST/BT 

%  mean  aerodynamic  chord  of  wing 

%  Sw  =  (cr  +  ct)  /2  *b,  with  tip  chord  ct=TR*cr 

%  Find  root  chord  and  tip  chord 
CWROOT  «  (2*S)/B/(1+TR); 

CWTIP  =  CWROOT *TR; 

%  Use  Schmidt  p.  9,  eq.  1.13 

%CH  =  (2/3) * (CWROOT  +  CWTIP  -  ( CWROOT* CWT I P/ (CWROOT+CWTIP) ) ) ; 

CH  -  MACwing; 

%  Mean  aerodynamic  chord  of  horizontal  tail 

%  St  =  (cr  tail+  ct  tail)  / 2  *bt,  with  tip  chord  ct=TRT*cr 

%  Find  root  chord  and  tip  chord 
CTROOT  =  ( 2*ST ) /BT/ ( 1+TRT ) ; 

CTTIP  =  CTROOT *TRT; 

%  Use  Schmidt  p.  9,  eq.  1.13 

%CHT  =  (2/3)* (CTROOT  +  CTTIP  -  ( CTROOT*CTTI P/ ( CTROOT+CTTI P ) ) ) ; 
CHT-MACht ; 

fprintf (fidl, ' \n ' ) ; 
fprintf { fidl, ’ \n  Wing  MAC,  ft 
fprintf (fidl, '\n  Tail  MAC,  ft 

%  Dynamic  Pressure 
qD  =  0 , 5*RHO*U^2; 

fprintf ( fidl, 1 \n ' )  ; 
fprintf (fidl, '\n  ****Internal  Calculations.  Interim  Results****  ’  ) 
fprintf ( fidl, ’ \n  Dynamic  Pressure,  lb/ft^2  -  %4.6f  ’,qD); 

%  Check  values  of  taper  ratio  for  wing 

%  For  most  accurate  results  TR  should  be  between  0  and  1 

if  (TR  <  0  |  TR  >  1) 
disp ( ’TR  =  ' ) ; 
disp(TR); 

disp (’ERROR:  TR  IS  OUTSIDE  DESIRABLE  RANGE  OF  0.0  TO  1.0’); 
disp ( ’WHEN  CALCULATING  TAU  OR  DELTA’); 

end 

%  Make  sure  that  TR  and  AR  are  within  values  for  which  aerodynamic 
%  effects  are  given.  See  Smetana  page  59  Fig.  12. 

%  Note  that  the  Aspect  ratio  range  for  that  figure  (for  TR=1 )  is 
%  between  3  and  12. 

if  (((AR  <  3)  &  (TR  ==  1 ) ) | { ( AR  >  12)  &  (TR  -=  1))) 
disp ( 'AR  =  ' ) ; 
disp(AR); 

disp {’ERROR:  AR  IS  OUTSIDE  DESIRABLE  RANGE  OF  3.0  TO  12.0’); 
disp ( ’ FOR  TR  =  1.0  WHEN  CALCULATING  TAU1  OR  DELTA1 ' ) ; 

end 


=  %4 . 2f  ’ , CH ) ; 

=  %  4 . 2  f  ' , CHT ) ; 


if  TR  ===  1 

%  data  for  TR=1  (Fig.  12,  p,  59  in  Smetana)  AR  between  3  and  12 
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TAUl  =  0. 0000297115*ARA4  -  0 . 000811747*ARa3  +  0 . 0071717*ARA2 
0 . 00298853*AR  +  1.07739; 

El  =  1/TAU1 ; 

else  %if  (AR  <=  7  &  AR  >=  5) 

%  The  case  where  TR  is  not  1.  Fig.  11  page  59  of  Smetana 
%  in  this  case  AR  must  be  around  6 

%  make  sure  AR  is  around  6 

TAU  =  6526. 0*TRA13-33936.5*TRA12+65708. 3*TRAll-4 027 5 . 9*TRA10~.  .  . 

55022 . 8*TRA9+134075.0*TRA8-128452.0*TRA 7+71152 . 4*TRA6-24169 . 6*TRA5+  .  .  . 
4910 . 63*T RA 4-541. 19*TRA3+27 . 1966*TRA2-1 . 311 55*TR+0 . 170212; 

El  =  1/ (1  +  TAU) ; 

%  else 

%  Modification  made  29  Mar  00.  The  above  restriction  on  AR  does  not  appear 
%  in  the  Smetana  code.  Was  added  by  Prof.  Livne  for  AA516. 

%  disp ( ’ AR  =  ’ ) ; 

%  disp ( AR } ; 

%  disp ('ERROR:  AR  IS  OUTSIDE  DESIRABLE  RANGE  OF  5.0  TO  7.0'); 

%  disp ( ’FOR  TR  1.0’); 

%error (’ Program  stopped' J; 

end 

%  Find  CLalpha-wing  page  58  eq.  at  center  of  page 

%  notes:  The  data  for  correction  of  2D  cLalpha  to  3D  cLalpha  is  incomplete. 

%  Only  the  cases  TR=1  for  AR  from  3  to  12 
%  OR 

%  AR-6 . 28  for  TR  from  0  to  1 
%  are  considered. 

%  Thus  this  can  be  used  for  airplanes  of  TR=1 
%  or 

%  airplane  with  AR  of  about  6  and  varying  TR. 

%  for  more  combinations  of  TR  and  AR  see  Perkins  and  Hage  page  84-85 
%  equation  2-66  and  fig.  2-55. 

%  pay  attention  to  units.  The  lift  curve  slopes  are  input  as  1/deg 
%  the  3D  result  is  in  1/rad. 

CLAW  =  ( 57 . 3*CLA2DW) / ( 1  +  CLA2DW*57 . 3/ (pi*El*AR) )  ; 

fprintf ( fidl, ' \n  Wing  3-D  CL-alpha,  1/rad  =  %4.6f  ' ,CLAW); 


%  Tail  3D  lift  curve  slope  cLalpha-tail 

%  The  tail  is  treated  as  a  3D  wing 

%  Check  that  TRtail  is  between  0  and  1 

if  {TRT  <  0  |  TRT  >  1) 
disp ( 'TRT  =  ’ ) ; 
disp (TRT); 

disp ( ’ ERROR :  TRT  IS  OUTSIDE  DESIRABLE  RANGE  OF  0.0  TO  1.0'); 
disp { ’ WHEN  CALCULATING  TAUT'); 
terror (' Program  stopped’); 

end 

%  CHECK  THAT  IN  THE  CASE  OF  TR=1,  AR  IS  Between  3  AND  12. 

if  ((ART  <  3  &  TRT  ==  1)|(ART  >  12  &  TRT  ==  1 } ) 
disp ( 'ART  =  ' ) ; 


disp (ART) ; 

disp(* ERROR:  ART  IS  OUTSIDE  DESIRABLE  RANGE  OF  3.0  TO  12.0'); 
disp {’FOR  TR  =  1.0  WHEN  CALCULATING  TAU1T ' } ; 

%error ( 1  Program  stopped'); 

end 

%  for  tail  3D  CLalpha-tail  see  comments  regarding  cLalpha  of  the  wing. 

%  however,  because  the  tail  is  influenced  by  the  wing,  a  correction 
%  due  to  depsilon/ dalpha  must  be  added.  That  is  needed  not  for  the 
%  cLalpha  of  the  tail,  but  for  the  contribution  of  the  tail  to  the 
%  cLalpha  of  the  airplane. 

%  See  Smetana  last  Eq.  on  p.  63. 

if  ( TRT  ==1} 

%  the  case  TRtail=l  and  ARtail  between  3  and  12. 

TAU1T  =  0.0000297 1 15* ART ^4 -0 .0008117  4  7*ARTA3+0 . 007 1717 * ART ^2-0 . 002  98 8 5 3* ART .  . . 
+1.07739; 

E1T  =  1/TAU1T; 

%  the  case  AR=6  and  variable  TR 
else  %if  (AR  <=  7  &  AR  >=  5) 

%  The  case  where  TR  is  not  1.  Fig.  11  page  59  of  Smetana 
%  in  this  case  AR  must  be  around  6 
%  make  sure  AR  is  around  6 

TAUT  =  6526.0*TRTA13-33936.5*TRTA12+65708.3*TRTAll-40275. 9*TRTA10-  .  .  . 

55022. 8*TRTA9+134075 . 0*TRTA8-128452 . 0*TRTA7+7 1152 . 4*TRTA6-  .  .  . 

24169. 6*TRTA5+4  910. 63*TRTA 4-541 . 19*TRTA3+27 . 1 966*TRTA2-1 . 31155*TRT+0 . 170212; 
E1T  =  1/ (1  +  TAUT) ; 

%  else 

%  Modification  made  29  Mar  00.  The  above  restriction  on  AR  does  not  appear 
%  in  the  Smetana  code.  Was  added  by  Prof.  Livne  for  AA516. 

%  disp ( 'AR  —  ' ) ;  ' 

%  disp (AR ) ; 

%  disp {'ERROR:  AR  IS  OUTSIDE  DESIRABLE  RANGE  OF  5.0  TO  7.0'); 

%  disp  (  '  FOR  TR  1 .  O'*  ) ; 

%error (' Program  stopped’); 

end 


%  for  the  wing  find  delta  (see  perkins  &  Hage  p.  73  eq.  2-61,  and  fig. 2-44 
if  TR  «  1 

%  the  case  of  variable  AR  (3-12)  at  TR=1 

DELTA1  =  -0. 000014  3113* AR'' 3  +  0 . 0000158924*ARA2+0 . 0113969*AR+  .  988661 ; 

E  -  1/DELTA1; 

else 

%  the  case  of  variable  TR  90-1)  at  AR  of  about  6 

DELTA  =  2 . 4  8637*TRA6-9 . 2 9906*TRA5+1 4 . 0692*TRA4 -11 . 1 1 99*TRA3+5 . 01 4 93*TRA2- . 
1.24262*TR+0. 141122; 

E  =  1/ { 1+DELTA) ; 

end 


%  Find  CL 


%  CL  of  airplane  from  Lift-Weight 
Weight  =  MS*GRAVIT; 

Weight/qD/S; 

fprintf (fidl, '\n  CL  Airplane  =  %4.6f  ' ,CL); 

%  estimate  tail  lift  coefficient:  using  moment  balance  about  eg 
%  (total  pitching  moment  zero)  and  neglecting  fuselage  contribution, 

%  the  moment  due  to  tail  lift  has  to  balance  the  moment  due  to  wing  lift 
%  Thus  (Smetana  page  40  2nd  equation): 

%  CLT=CLW*XA*S/ (LT*ST*EFF) 

%  solve  for  CLW  using  LW+LT~Total  Lift 

AUX  -  1  +  (XA*S/ (LT*ST*EFF) )  ; 

CLW  =  CL/AUX; 

fprintf ( fidl, ' \n  CL  Wing  =  %4.6f  1 ,CLW); 

%  now  find  CLT 

CLT  -  CLW*XA*S/ (LT*ST*EFF)  ; 

fprintf (fidl, '\n  CL  Tail  =  %4.6f  ' ,CLT); 

%  now  calculate  depsilon/dalpha  (Smetana,  p.  69,  last  equation) 

%  recall  the  wing  cL  is  related  to  the  strength  of  the  wing  vortex, 

%  which,  in  turn,  induces  down  wash  over  the  tail 

DW  -  20*CLW*  (  (  (1/TRP0.3)/ (AFT0.725)  )*  ( 3 . 0*CH/LT1 ) A0 . 25; 

fprintf ( fidl, 1 \n  Wing  Downwash  on  Tail  (deg)  =  %4.2f  ’,DW); 

%  find  clalpha  of  the  wing  and  of  the  tail 
%  Smetana  p.  58  2nd  eq. 

%  cLalpha  of  wing 

CLAW  -  ( 57 . 3*CLA2DW) / ( 1  +  CLA2DW*57 . 3/ (pi*El*AR) )  ; 

%  cLalpha  of  tail 

CLAT  =  (57.3*CLA2DT)/ (1  +  CLA2DT*57 . 3/ ( pi*ElT*ART ) ) ; 

%  find  angle  of  attack  of  the  wing 

%  using  CLW— CLAW* AL PH AW  (since  CLAW  is  in  1/rad,  we  need 
%  to  convert  ALPHAW  to  degrees 

ALPHAW  =  ( CLW/ CLAW) *180/pi ; 

%  set  the  airplane  angle  of  attack  to  equal  the  wing  AOA 
ALPHA  =  ALPHAW; 

fprintf (fidl, *\n  Wing  AOA,  deg  =  %4.2f  ', ALPHA); 

%  tail  angle  of  attack  (Smetana  p.  53,  2nd  eq. ) 

%  (note  that  itail,  iwing  are  real*8  variables) 


ALPHAT  =  ALPHA  -  IWING  +  ITAIL  -  DW; 
fprintf (fidl, *\n  Tail  AOA,  deg 


-  %4.2f  ’, ALPHAT); 


%  ratio  of-  elevator  area  to  tail  area 
%  {Smetana  p.  90,  Fig.  20) 

S RATIO  =  SELEV/ST; 

%  make  sure  that  this  ratio  is  between  0  and  0.7 

if  (SRATIO  <  0  |  S RATIO  >0.7)  ^ 

disp ( ’SRATIO  =  '  )  ; 
disp ( SRATIO)  ; 

disp { ’ ERROR:  SRATIO  IS  OUTSIDE  DESIRABLE  RANGE  OF  0.0  TO  0.7’); 
disp ('WHEN  CALCULATING  DADDE ' ) ; 

%error { ' Program  stopped ’ ) ; 

end 

%  dalphatail/ddeltaE 

DADDE  =  21 .  7  94  9*SRATIO,'s5-4  6. 474  4  *SRATIO~4  +  36  .'9347*SRATIOA3-14 . 259*SRATIO~2+ 
3 . 7  0551*SRATIO-0 .000057815; 

%  for  SRATIO  between  0.7  and  1 

if  (SRATIO  >  0.7) 

DADDE  =  SRATIO; 

end 

if  (SRATIO  >  1) 

disp ('ERROR:  SRATIO  >  1.0'); 

%error (' Program  stopped'); 

end 

%  effective  angle  of  attack  of  the  tail  (in  degrees) 

ALPHAR  =  CLT/ (CLAT/57 .3)  ; 

%  difference  between  effective  tail  AOA  and  actual  tail  AOA 
DALPHA  -  ALPHAR-ALPHAT; 

%  Elevetor  angle,  deltaE,  needed  for  balance 
DELTAE  =  DALPHA/ DADDE; 

fprintf (fidl, '\n  Elevator  Angle  deltaE,  deg  =  %4.6f  ', DELTAE); 


%  Find  Drag  Coefficient  CD 
%  - 

%  drag  polar  equation  with  cD0=cDpi 
CD  =  CD0  +  CLA2/(pi*E*AR); 

fprintf (fidl, *\n  Oswald  Coefficient  (wing)  =  %4.6f  ' ,  E ) ; 

fprintf ( fidl, ' \n  Drag  coefficient,  cD  =  %4.6f  ',CD); 


%  Find  Thrust  force 


%  Thrust=Drag  for  straight  and  level  flight  at  constant  speed 

THRUST  =  qD*S*CD; 

%  .Pitching  moment  coefficient  CM 
% - 


%  CM=0  in  equilibrium  flight,  unless  the  thrust  line  is  a  distance 
%  ZJ  from  the  eg.  In  this  case  the  aerodynamic  moment  CM  has  to  balance 
%  the  moment  due  to  thrust  about  the  eg. 

%  note:  the  thrust  must  actually  be  equal  to  the  drag  in  constant  speed 
%  flight  at  constant  altitude. 

CM  —  (THRUST/  (  0 . 5*RHO*U's2*S)  )  *  (  ZJ/CH )  ; 

%  Thrust  Coefficient 
% - 


CT  =  THRUST/ ( 0 . 5*RHO*UA2*S ) ; 


%  Lift  curve  slope  of  the  3D  airplane 
% - 


%  cLalpha  of  wing 

CLAW  = ( 57 . 3*CLA2DW) / (1  +  CLA2DW*57 . 3/ ( pi*El*AR) ) ; 

%  cLalpha  of  tail 

CLAT  = ( 57 . 3*CLA2DT ) / (1  +  CLA2DT*57 . 3/ (pi*ElT*ART ) ) ; 

%  dEpsilon/dAlpha  (downwash  on  tail  due  to  alpha  of  wing) 

%  Smetana  p.  69,  last  equation 

DEDA  =  20.0*  (CLAW/57.3)  *  (  (  { 1/TR)  *0 . 3 )  /AR^O .  725 )  *  (3.0*CH/LT1)/S0.25; 

fprintf (fidl, *\n  dEps/dAlpha  wing  effect  on  tail  =  %4.6f  1 , DEDA) ; 

%  approximate  cLalpha  of  airplane  by  cLalpha  of  Wing  only 
CLA  =  CLAW; 


%  cDalpha  (Smetana,  pp.  64-65) 

%  p.  65  last  eq. 

%  note:  cdOalpha  of  airplane  is  approximated  by  cDOalpha  of  2D  airfoil 
CDA  =  CDA2DW  +  2*CL*CLA/ (pi*E*AR) ; 


%  cMalpha 

%  contribution  of  wing  (Smetana,  p.  68,  1st  equation) 

CMAW  =  CLA* ( ( 1+ (2*CL/ (pi*E*AR) ) * ( (ALPHA- I WING ) / 57 . 3 ) +CD/CLA) * (XA/CH) + .  .  . 

( 2* CL/ (pi*E*AR) - ( ALPHA-IWING) / 57 . 3-CL/CLA) * (ZA/CH) ) ; 

%  contribution  of  tail  (Smetana,  p.  69  4th  equation  from  top  of  page) 

CMAT  =  CLAT*  ( 1  -  DEDA)  *  ( ST/ S )  *•(  LT/CH )  *EFF; 

%  for  fuselage  contribution,  use  Fig.  16  in  Smetana  (page  70) 

%  check  to  make  sure  that  (position  of  wing  1/4  root  chord )/( length  of  body) 
%  is  within  the  range  0.08  to  0.65 

XLBo  =  XFUS/LB; 


if  (XLBo  <  0.08  |  XLBo  >  0.65) 


%  if  loop:  Calculates  KF,  CM A,  CMAFUS 
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disp ( * XLBo  =  ’ ) ; 
disp (XLBo); 

disp { 1  ERROR :  XLBo  IS  OUTSIDE  DESIRABLE  RANGE  OF  0.1  TO  0.65’); 

%disp { ’WHEN  CALCULATING  KF*  )  ; 

%error ( 1  Program  stopped ’} ; 

CMA  =  -0.2; 

else 

%  Fig.  16,  p.  70  Smetana 

KF  =  -19. 6558*XLBo^4  +  50 . 34  65*  XLBo'' 3-2  6 .54  7  9  *  XLBo 's  2+7 . 47299*XLBo-0 .  4  64  064  ; 
%  Smetana  p.  70,  1st  Eq. 

%  fuselage  contribution 
CMAFUS  =  KF*WFUS*WFUS*LB/ (S*CH)  ; 

%  complete  cMalpha  (Smetan,  p.  74) 

CMA  =  CMAW  +  CMAFUS  -  CMAT; 

end 

%  end  if  loop:  Calculates  KF,  CMA,  CMAFUS 

%  cL-alphadot  (Smetan,  p.  76) 

% - 

CLDA  =  2*CLAT*  DEDA* (LT1/CH )  * { ST/S ) *EFF; 

%  cD-alphadot  (Smetana,  p.  77) 

%  - 


CDDA  =0.0; 


%  cM-alphadot  (Smetan,  p.  81) 


CM DA  =  -2*CLAT* DEDA* (LT/CH) * (LT1/CH ) * ( ST/S )  *EFF; 


%  cL~q  (Smetana,  p.  85) 

%  - - 

%  orginial  eq.  in  Smetana 

CLQ  =  2 . 0* (XCG/CH) *CLA+2* (LT/CH) *CLAT* (ST/S) *EFF; 

%  modified  eq.  (eliminate  wing  contribution)  -  not  used  currently 
%  CLQ=2.0* (LT/CH ) *CLAT* (ST/S)*EFF 

%  cD-q  (Smetana,  p.  86) 

% - 

CDQ  =0.0; 

%  cM-q  (Smetana,  p.  88) 

% - : - 

%  orginial  eq.  in  Smetana 

CMQ  =-2*  (XCG/CH^ 2)  *abs  (XCG)  *CLA  -  2*  ( LT/CH )  ^2*CLAT*  ( ST/S )  *EFF; 

%  modified  eq.  (eliminate  wing  contribution)  not  used  currently 
%  CMQ=-2.0* (LT/CH } **2*CLAT* (ST/S)*EFF 

%  cL-deltaE  (Smetana,  pp.  89-94) 

%  Fig,  20,  p.  90:  ratio  of  elevator  area  to  tail  area 


CHECHT 


CHE/CHT; 


%  check  it  is  between  0  and  1 
if  (CHECHT  <  0  f  CHECHT  >  1) 
disp ( 'CHE/CHT  =  ' ) ; 
disp (CHECHT ) ; 

disp ('ERROR:  CHE/CHT  IS  OUTSIDE  DESIRABLE  RANGE  OF  0.0  TO  1.0'); 
disp ( ' WHEN  CALCULATING  CLDE2D' ) ; 

%error (' Program  stopped'); 
end 

%  Fig.  21,  p.  91  Smetana:  Find  the  2D  dcL/dcDE  for  the  tail's 
%  airfoil  /  flap  combination  for  different  flap  chord  to  airfoil 
%  chord  ratios  (between  0  and  1) 

%  Actually,  there  should  be  a  check  here  to  make  sure  CHE/CHT 
%  is  within  range. 

%  chord  ratio  elevator  /  c 

cratioT  =  CHE/CHT; 

fprintf (fidl, '\n  elvator  chord  :  tail  chord  ratio  =  %4.6f  cratioT); 

%  Note:  the  equation  used  here  by  Smetana  fits  the  curve  in  Fig.  21 
%  denoted  "High  aspect  ratios". 

%  For  tail  surfaces  it  might  be  more  apppropriate  to  use  the  lower  curve 
%  for  "Low  aspect  ratios". 

%  Here  the  "high  ASpect  Ratio  curve  is  used  when  ARtail  is  greater  than  4.5. 

%  otherwise  the  "low  aspect  ratio  curve  is  used 

%  when  CHE/CHT  is  less  than  0.4,  aspect  ratio  does  not  matter 

if  (CHE/CHT  <=  0.4)  %  if  loop  for  calc  of  CLDE2D 

CLDE2D  =  -0.0580767* (CHE/CHT) A4  +  0 . 146101* ( CHE/CHT ) A3-0 . 169823* . . . 

(CHE/CHT) A2+0. 194084* (CHE/CHT) -0. 00202833; 

%  now  if  CHE/CHT  is  greater  than  0.4,  in  the  case  ofhigh  ARt: 
elseif  (ART  >4.5)' 

CLDE2D  =  -0. 0580767* (CHE/CHT)  A4  +  0. 146101* (CHE/CHT) A3-0 . 169823* .. . 

(CHE/CHT) A2+0. 194084* (CHE/CHT) -0. 00202833; 
else 

%  when  CHE/CLT  is  greater  than  4.5  and  ARt  is  low: 

%  (we  use  a  simple  linear  approximation  of  the  low  aspect  ratio 
%  curve  above  CHE/CHT  of  0.4) 

CLDE2D  =  0.0563  +  0 . 0321* ( CHE/CHT-0 . 4 ) ; 

end  %  end  if  loop  for  calc  of  CLDE2D 

%  dcl/ddelE  2D 

fprintf ( fidl, ' \n  del  /  ddeltaE  Tail  2D  =  %4.6f  ' , CLDE2D) ; 

%  check  to  make  sure  that  ARtail  is  between  0  and  10 
%  for  Fig.  23  p.  93 

if  (ART  <  0  |  ART  >10) 
disp ( 'ART  =  '  )  ; 
disp (ART); 

disp ( ' ERROR :  ART  IS  OUTSIDE  DESIRABLE  RANGE  OF  0.0  TO  10.0’); 
disp { 'WHEN  CALCULATING  CLDE ' ) ; 

%error (' Program  stopped'); 
end 

%  Smetana,  Fig.  93  upper  right  small  figure 

AD2D  =  4.65842* ( CHE/CHT } A 4 -1 0 . 9873* { CHE/CHT ) A3+ 9 . 4 7521 * (CHE/CHT) A2- .  .  . 

4 .09969* (CHE/CHT)-0. 0432959; 
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fprintf { f idl, 1 \n  ce/ctail 
fprintf { f idl, *\n  AlphaDelta  sub  cl 


=  %4 .6 f  1 , CHE/CHT ) ; 
=  % 4 . 6f  ’  ,  AD2D)  ; 


%  Now,  depending  on  the  result  from  the  upper  right  small  figure, 
%  enter  the  main  figure  23  and  use  the  relevant  curve 


if  ( AD2D  >=  -0.1) 

AD  =,-0. 00005807 64* ART A5+0. 002037 4 6* ART A 4 -0 . 0284  903* ART'" 3+0 . 2037 8 3* ART A2- 
0. 802715*ART+2. 77199; 

elseif  ( AD2D  <  -0.1  &  AD2D  >=  -0.2) 

ADI  =  -0 . 00005807  64  *  ART'' 5+0 .0020374  6*ARTA4 -0 .0284  903* ARTA  3+0 . 2037  83* ARTA2- 
0. 802715*ART+2 .77199; 

AD2  =  -0 . 00  0858  2  09*  ART''' 3+0 ,02247  24  * ART A 2-0 . 206709*ART+1 .81719; 

AD  =  ADI  +  { AD2  -  AD1)*(AD2D  -  ( -0 . 1 )  )  /  [-0 . 1 )  ; 

elseif  ( AD2D  <  -0.2  &  AD2D  >=  -0.3) 

ADI  =  — 0 . 0008582  0  9* ART A  3  +  0 . 0224724*  ART A  2  —  0 .2067  0  9* ART+1 . 81719; 

AD2  =  0. 0001 32-994  *  ART"  4-0. 00394  386*  ARTA  3+0. 04  50323*  ARTA2-0. 24  924  4*  ART+ 
1.69816; 

AD  =  ADI  +  { AD2  -  AD1)*(AD2D  - ( -0 . 2 ) ) / {-0 . 1 ) ; 
elseif  { AD2D  <  -0.3  &  AD2D  >=  -0.4) 

ADI  =  0 . 000132  994  * ART A 4 -0 . 00394  386* ARTA3  +  0 . 04  50323* ART A 2-0 . 24  524  4  * ART+1 .69816; 

AD2  =  -0.000007  24  351*ARTA6+0 . 00023523 9* ART A 5- 
0 . 0 0285 365* ARTA 4+0 . 01 5 08 82 * ART A 3- . . . 

0. 0214 656*ARTA2-0. 108685*ART+1 . 47429; 

AD  =  ADI  +  ( AD2  -  AD1)*(AD2D  - ( -0 . 3 ) ) / ( -0 . 1 ) ; 

elseif  ( AD2D  <  -0.4  &  AD2D  >=  -0.5) 

ADI  =  -0.000007  2  4  351 * ART A 6+0 . 0 0 02 35 2 3 9* ART A 5-0 . 0028  5365*  ART''  4  +0 . 01 5  08  82*  ART'"  3- . 

0. 0214 656*ARTA2-0 . 108685*ART+1 . 47429; 

AD2  =  -0 . 000011681*ARTA5+0 . 0004 30597*ARTa4- 
0.00621814  * ART A 3+0 . 04  5 67 23* ART A 2- .  . . 

0. 184917*ART+1 . 41226; 

AD  -  ADI  +  (AD2  -  AD1)*{AD2D  -  (-0 . 4  ).)  /  { -0 . 1 )  ; 
elseif  { AD2D  <  -0.5  &  AD2D  >=  -0.6) 

ADI  =  -0 . 00001 1 68 1 * ART A 5+0. 0004 30597*ARTA4-0 . 00621814*ARTA3+0 . 04 56723*ARTA2- 
0.184917*ART+1. 41226; 

AD2  =  -0 . 0000073708*ARTA5+0 . 000307 952*ARTA4 - 
0 . 004  8 922 4* ART A 3+0 .0380384  *ARTA2- . . . 

0. 154526*ART+1 .32116; 

AD  =  ADI  +  ( AD2  -  AD1)*(AD2D  - ( -0 . 5 ) ) / { -0 . 1 ) ; 
elseif  (AD2D  <  -0.6  &  AD2D  >=  -0.7) 

ADI  =  -0 . 000007 37 08* ART A 5+0. 000307 952* ART A 4 -0 . 004 89224*ARTA3+0 . 0380384  * ART A 2- 
0.154526*ART+1 . 32116; 

AD2  =  0.00000243494*ARTA4-0.000255415*ARTA3+0. 0057768*ARTA2- 
0. 0487234*ART+1.16569; 

AD  =  ADI  +  { AD2  -  AD1)*(AD2D  —(—0.6) ) / (—0.1) ; 
elseif  ( AD2D  <  -0.7  &  AD2D  >=  -0.8) 

ADI  =  0. 0000024  34  94* ART A 4-0 . 0002554 15* ARTA 3+0 . 0057 7 68* ART A 2- 0 . 04  87  234 *ART  +  1 . 16569; 
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AD2  =  0. 0000255244*ART/N4-0. 00080707*ART^3+0 . 00935254*ART~2- 
0.04874  66*ART+1 .12006; 

AD  =  ADI  +  { AD2  -  AD1)*{AD2D  - ( -0 . 7 ) ) / ( -0 . 1 ) ; 

else 

ADI  =  0. 0000255224*ART^4-0 . 0008 07  07  +  ART A 3+ 0 . 00935254 *ART~ 2-0 . 04  87  4  66* ART-1- .  .  . 
1.12006; 

AD2  =1.0; 

AD  =  ADI  +  { AD2  -  AD1)*{AD2D  “  ( -0 . 8  }  )  /  ( -0 . 2  )  ; 
end 

fprintf (fidl, »\n  (alphaDelta  cL) / ( alphaDelta  cL)  =  %4.6f  f , AD} ; 

%  cL-DeltaE  (Smetana,  p.  94,  top  equation 

CLDE  =  CLDE2D* (CLAT/ (CLA2DT) ) *AD* ( ST/S ) *EFF; 

%  Modified 
%SSE  =  2*CHE*BE; 

%CLDE  =  CLDE*2*BE/BT; 

%  store  calculated  cL-deltaE  in  CLIN 

CLIN  =  CLDE; 


%  store  cL-deltaE  in  CLIN 
CLIN  =  CLDE; 

%  cD-deltaE 


%  calculation  assumes  it  is  6 

%  however,  Smetana  pp.  95-100  can  be  used  too. 

CDDE  =0.0; 

%  store  in  CDIN 
CDIN  =  CDDE; 

%  if  CDDE  is  given,  store  in  CDIN 
CDIN  =  CDDE; 

%  CM-deltaE 
% - 

%  p.  101,  eq.  at  bottom  of  page 

CMDE  =  ( -LT/CH ) *CLDE; 

%  store  in  CMIN 
CMIN  =  CMDE; 

%  if  CMDE  is  given,  store  in  CMIN 
CMIN  =  CMDE; 

%  cL-u 


CLU  =  0.0; 


%  cD-u 
% - 
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CDU  =  0.0; 

%  cM-u 
% - —  ' 

CMU  =  0.0; 

%  cT-u 
% - 


CTU  —  0.0; 

%  cT-rpm 
% - 

CTRPM  =  0.0; 


%  Estimate  Static  Margin 
StaticMargin  =  -CMA/CLA; 


%  Write  Output  File 


fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 


(fidl,  ' 

{  f  idl , 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

(fidl, 

( fidl, 
(fidl, 
(fidl, 
(fidl, 
(fidl, 
(fidl, 
(fidl, 
(fidl, 
(fidl, 
(fidl, 
(fidl, 
(fidl. 


\n  Flight  Conditions') 

\n - •  )  ; 

\n  Density,  slug/ftA3 
\n  Velocity,  ft/s 
\n  Mass,  slugs 
\n  Iyy,  slug*ftA2 
\n  Thrust,  lbs 
\n  Vertical  distance  to  thrust  line 
\n  G*Cos (GAMMA) ,  ft/secA2  =  %4.2f' 
\n  G*Sin  (GAMMA)  ,  ft/secA2  =  %4.2f 
\n  COSXz 
\n  SINXz 
\n '  )  ; 

\n  1  ) ; 

\n  Aircraft  Characteristic  Values') 


=  %  4 . 6  f 1 
=  %  4  _  2  f 1 
=  %4 . 2f 1 
=  %  4 . 2f 1 
=  %  4  -  2  f  ’ 


%4 . 2f 
%  4 . 2f 


,  RHO)  ; 

,U); 

,  MS )  ; 

,  IYY); 

, THRUST)  , 

,  ft 

,  GCOSGM)  , 
, GSINGM)  , 
' , COSXZ )  , 
1 , SINXZ )  , 


-  % 4 . 2f  ' , Z J)  ; 


\n 

\n  Wing  Area,  ftA2 
\n  Horizontal  Tail  Area,  ftA2 
\n  Wing  Span,  ft 
\n  Horizontal  Tail  Span,  ft 
\n  Wing  Chord,  ft 
\n  Horizontal  Tail  Chord,  ft 
\n  Wing  Aspect  Ratio 
\n  Horizontal  Tail  Aspect  Ratio 
\n  Wing  Taper  Ratio 
\n  Horizontal  Tail  Taper  Ratio 
\n  Wing  AOA  (Alpha),  deg 
\n  Tail  AOA  (Alpha),  deg 
\n  Wing  Incidence  Angle,  deg 
\n  Tail  Incidence  Angle,  deg 
\n '  )  ; 

\n '  )  ; 

\n  Downwash  Angle,  deg 
\n  Downwash /Alpha 
\n  Elevator  Angle,  deg 
\n  Elevator  Area,  ftA2 
\n  Tail  efficiency 
\n  Elevator  Chord,  ft 


%4  . 
%4  . 
%  4  . 
%  4  . 
%  4  . 
%4  . 
%4  . 
%  4  . 
%  4  . 
%4  . 
%  4  . 
%4  . 
%  4  . 
%  4  . 


2f',S); 

2f ' , ST ) ; 

2f ' , B) ; 

2f 1 , BT ) ; 

2f ' ,CH) ; 

2f ' , CHT )  ; 

2  f ' , AR ) ; 

2  f ' , ART )  ; 

2f ’ , TR)  ; 

2f ’ , TRT ) ; 

2f ', ALPHA) ; 
2f ' , ALPHAT)  ; 
2f 1 , IWING )  ; 
2f ’ , ITAIL )  ; 


%4  . 
%  4  . 
%  4  . 
%4  . 
%4  . 
%  4  . 


2f ' , DW) ; 

2f ' , DEDA) ; 

2f ' , DELTAE )  ; 
2f ' , SELEV)  ; 
2f  ’  ,  EFF)  ; 

2f ' , CHE ) ; 


fprintf ( fidl, ' \n  2-D  Wing  CL-alpha 
fprintf (fidl, '\n  2-D  Tail  CL-alpha 
fprintf (fidl, ' \n  Zero-lift  Drag  Coeff. 
fprintf ( fidl, 1 \n  2-D  Wing  CD-alpha 
fprintf ( fidl, *\n* } ; 
fprintf (fidl, '  \  n  '  )  ; 

fprintf ( fidl , 1 \n  Length  of  Fuselage,  ft 
fprintf (fidl, '\n  Max  Width  of  Fuselage,  ft 
fprintf (fidl, '\n  C.G.  to  Tail  Quarter-chord,  ft 
fprintf { fidl, ' \n  Wing  to  Tail  Quarter-chord,  ft 
fprintf (fidl, ’\n  C.G.  to  Wing  A.C.  (Chordwise),  ft 
.fprintf (fidl, ’ \n  C.G.  to  Wing  A.C.  (Vertical),  ft 
fprintf ( fidl ,' \n  Nose  to  Wing  Quarter-chord,  ft 
fprintf (fidl, '\n  C.G.  to  Wing  Quarter-chord,  ft 
fprintf (fidl, *\n  C.G.  to  Tail  (Vertical),  ft 
fprintf ( fidl, ' \n' ) ; 
fprintf ( fidl, '\n '  ) ; 
fprintf ( fidl, 1 \n  * ****Longitudinal  Stability  Derivatives  *****’); 


fprintf ( fidl, 

' \n 

CL 

= 

%4 . 6f ' , CL) ; 

fprintf ( fidl. 

'  \n 

CLA 

%  4 . 6f ' , CLA) ; 

fprintf ( fidl. 

'  \n 

CLDA 

= 

%  4 . 6f ' , CLDA) ; 

fprintf ( fidl. 

’ \n 

CLQ 

= 

%  4 . 6f ' , CLQ) ; 

fprintf ( fidl. 

’  \n 

CLDE 

%  4 . 6f ' , CLDE ) ; 

fprintf (fidl , 

'  \n 

CLU 

%  4 . 6f ' , CLU ) ; 

fprintf (fidl, 

'  \n 

CT 

= 

%  4 . 6f ' , CT ) ; 

fprintf (fidl, 

’ \n 

CD 

= 

%4 . 6f ' , CD) ; 

fprintf ( fidl, 

*  \n 

CDA 

%4 . 6f ' , CDA) ; 

fprintf ( fidl , 

'  \n 

CDDA 

%4 . 6f ' , CDDA) ; 

fprintf ( fidl, 

1  \n 

CDQ 

%4 . 6f ' , CDQ) ; 

fprintf ( fidl. 

’ \n 

CDDE 

%4 . 6f ' , CDDE ) ; 

fprintf ( fidl, 

1  \n 

CDU 

= 

%4 . 6f ' , CDU ) ; 

fprintf ( fidl , 

'  \n 

CTU 

- 

%4 . 6f ' , CTU ) ; 

fprintf ( fidl , 

’  \n 

CM 

%4 . 6f ' , CM) ; 

fprintf { fidl. 

’ \n 

CMA 

= 

%  4 . 6  f ' , CMA ) ; 

fprintf ( fidl. 

1  \n 

CM  DA 

= 

%4 . 6f ' , CMDA) ; 

fprintf (fidl. 

’  \n 

CMQ 

%  4 . 6  f ' , CMQ ) ; 

fprintf ( fidl. 

1  \n 

CMDE 

= 

%  4 . 6f ' , CMDE ) ; 

fprintf ( fidl. 

*  \n 

CMU 

= 

%  4 . 6  f 1 , CMU ) ; 

fprintf ( fidl. 

1  \n 

CTRPM 

= 

%4 .6f ' , CTRPM) 

fprintf ( fidl, 

'  \n  1 

'); 

%  Notes: 

%  CLIN,  CDIN,  AND  CMIN  ARE  THE  STABILITY  DERIVATIVES  DUE  TO  CONTROL 

%  SURFACE  DEFLECTIONS.  CLIN  IS  EITHER  THE  PARTIAL  OF  CL  WITH 

%  RESPECT  TO  ELEVATOR  DEFLECTION  OR  FLAP  DEFLECTION.  THE  VALUE  OF  K 

%  DETERMINES  WHETHER  IT  IS  CONCERNED  WITH  FLAPS  OR  ELEVATOR. 

%  IF  K  IS  GIVEN  THE  VALUE  1  THEN  CLIN,  CDIN,  AND  CMIN  ARE  PARTIAL 

%  DERIVATIVES  WITH  RESPECT  TO  ELEVATOR  DEFLECTION.  IF  K=2  THEN  THE 

%  PARTIALS  ARE  TAKEN  WITH  RESPECT  TO  FLAP  DEFLECTION. 

if  (K  -=  1) 

fprintf ( fidl, ' \n  deltaE  Represents  ELEVATOR  DEFLECTION'); 
else 

fprintf ( fidl, ' \n  deltaE  Represents  FLAP  DEFLECTION'); 

end 


-  % 4 . 2f ' , CLA2DW) ; 
=  %4 . 2f ' ,CLA2DT)  ; 
=  %  4 . 2  f • , CDO )  ; 

-  % 4 . 2f ' , CDA2DW) ; 


-  %  4 . 2  f ' , LB ) ; 

=  %  4 . 2f  '  ,  WFUS  )  ; 
=  %  4 . 2  f ' , LT ) ; 

-  %  4 , 2  f  ' ,  LT  1 ) ; 

=  %4.2f',XA); 

=  %  4 . 2  f ' , ZA) ; 

=  % 4 . 2f  ' ,  XFUS )  ; 
=  %4 . 2f 1 ,XCG) ; 

=  %  4 . 2f ' , ZT ) ; 


fprintf (fidl, '\n  CLIN 
fprintf (fidl, '\n  CDIN 
fprintf (fidl, !\n  CMIN 
fprintf ( fidl, '\n  K 
fprintf ( fidl, ' \n ' } ; 


%  4 . 6f ' , CLIN ) ; 
%4 . 6f ' , CDIN )  ; 
%  4 . 6f ' , CMIN ) ; 
%  4 . 6f ' , K) ; 


%  CALCULATION  OF  DIMENSIONAL  STABILITY  DERIVATIVES 

%  - - - 

%  D  AND  DC  ARE  JUST  CONSTANTS  USED  TO  CALCULATE  THE  DIMENSIONAL 

%  STABILITY  DERIVATIVES. 

D  =  RHO*U*S/MS ; 

DC  =  RHO*U*S*CH/ IYY ; 

%  DIMENSIONAL  STABILITY  DERIVATIVES 

XU  =  D* { - (CDU+CD) ) ; 

ZU  =  D* ( - (CLU+CL) ) ; 

MU  =  DC* (CMU+CM) ; 

TU  =  D* ( CTU+CT )  ; 

XW  =  (D/2)* (CL  -  CDA)  ; 

ZW  =  (D/2)* (-(CLA  +  CD) )  ; 

MW  =  ( DC/ 2 ) *CMA; 

ZDW  =  “RHO*S*CH*CLDA/ (4*MS) ; 

XDW  =  -RHO*S*CH*CDDA/ { 4  *MS ) ; 

MDW  =  RHO*S*CH*CH*CMDA/ ( 4 * IYY )  ; 

XQ  =  -RHO*U*S*CH*CDQ/ (4*MS) ; 

ZQ  =  -RHO*U*S*CH*CLQ/ (4*MS) ; 

MQ  =  DC*CH*CMQ/4; 

TRPM  «  30*CH* D*CTRPM; 

'  XIN  =  ~D*CDIN*U/ 2 ; 

ZIN  =  -D*CLIN*U/2; 

MIN  -  DC*CMIN*U/2; 


%  The  following  calculations  were  added  to  the  original  Smetana  code  by 
%  Doug  Galloway  on  29  Mar  00.  Equations  are  from  Schmidt  Table  4.1. 

ZAL  =  ZW*U; 

XAL  =  XW*U; 

MAL  =  MW*U; 

ZADOT  =  ZDW*U; 

XADOT  =  XDW*U; 

MADOT  =  MDW*U; 

%  Print  the  Dimensional  Stability  Derivatives' 


fprintf ( f idl , 
fprintf ( fidl, 
fprintf ( fidl , 
fprintf ( fidl , 
fprintf ( fidl , 
fprintf ( fidl , 
fprintf ( fidl , 
fprintf ( fidl , 
fprintf ( fidl , 
fprintf ( fidl , 
fprintf (fidl, 
fprintf ( fidl, 
fprintf ( fidl, 
fprintf ( fidl, 
fprintf ( fidl, 
fprintf ( fidl, 
fprintf ( f idl , 
fprintf { f idl , 
fprintf (fidl, 
fprintf ( fidl, 
fprintf (fidl, 
fprintf ( fidl, 
fprintf { fidl, 


*\n  Dimensional  Stability  Derivatives 


\n 

\n 

XU 

= 

%  1 0 . 5  f  1 

/  XU ) ; 

\n 

ZU 

= 

%10.5f 1 

/  ZU ) ; 

\n 

MU 

= 

%  1 0 .'  5  f  ’ 

/MU) ; 

\n 

TU 

%10 . 5f 1 

/  TU); 

\n 

XW 

= 

%10 . 5f ' 

/XW); 

\n 

ZW 

= 

%10 . 5f ’ 

/ZW); 

\n 

MW 

= 

%10.5f • 

, MW)  ; 

\n 

XAL 

= 

%10.5f ' 

,  XAL)  ; 

\n 

ZAL 

= 

%10 . 5f ' 

,  ZAL }  ; 

\n 

MAL 

= 

%10.5f ' 

/MAL); 

\n 

XWD 

= 

%10.5f ' 

/XDW); 

\n 

ZWD 

= 

%10.5f ’ 

/ZDW); 

\n 

MWD 

= 

%10 . 5f ’ 

, MDW)  ; 

\n 

XADOT 

= 

%10 . 5f 1 

, XADOT ) ; 

\n 

ZADOT 

= 

%10.5f ’ 

, ZADOT) ; 

\n 

MADOT 

= 

%10.5f 1 

, MADOT ) ; 

\n 

XQ 

%10 . 5f  * 

/XQ); 

\n 

ZQ 

= 

%10.5f 1 

/ZQ); 

\n 

MQ 

= 

%10 . 5f 1 

/MQ); 

\n 

TRPM 

= 

%10.5f ' 

,TRPM)  ; 

\n 

XIN 

= 

%10.5f ' 

/XIN); 
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fprintf ( fidl, 1 \n  ZIN  =  %10. 5f ’ , ZIN) ; 
fprirttf  (fidl,  ' \n  MIN  =  %10. 5f ' ,MIN) ; 


C.22  VdocLongDynm.m 

This  file  determines  the  longitudinal  dynamic  modes  of  motion.  It  is  called  by  analyze. m. 

%*********************************************************************** 

%  April  19,  2000 

% - 

%  VdocLongDynm.m  Longitudinal  Dynamic  Stability 

% - - - 

% 

%  For  the  Longitudinal  Case  this  program  calculates: 

%  1)  Pertinent  specifications  for  each  characteristic  mode 

%  -  Short  Period 

%  -  Long  Period 

%  2)  Time  response  to  control  inputs 

% 

%  This  is  achieved  by  constructing  the  governing  state  equations  in 
%  matrix  form  for  the  lateral-directional  equations  of  motion 

global  A  — . - 

global  Bo 

%  Variables  changed  to  match  the  VdocLongStab . m 
V  =  U; 
g  =  GRAVIT; 

ao  =  ALPHA;  %ALPHA  is  in  degrees 
ao  =  ao*pi/180; 

%Components  of  X  vector 
u  =  0; 
a  =  0; 

q  -  0; 

theta  =0; 

%C.reate  Matrix  Equations 
Xo  =  [(u/V)  a  q  theta]; 

Xo  =  transpose (Xo ) ; 

De  =  [1];  %Elevator  input 

A  =  zeros (4,4); 

Bo  =  zeros (4,1); 

A  { 1 , 1 )  =  XU;  ( 

A  ( 1 , 2 )  =  XAL/V; 

A ( 1 , 3 )  =0; 

A(l,4)  =  - ( g/V) *cos { ao )  ; 

A  ( 2 , 1 )  =  V*ZU/ (V-ZADOT) ; 

A  (  2 , 2 )  =  ZAL/ (V-ZADOT)  ; 

A ( 2 , 3 )  = (V+ZQ)/ (V-ZADOT) ; 

A  ( 2 , 4  )  =  -g*sin ( ao ) / (V-ZADOT ) ; 

A ( 3, 1 )  =  V*MU  +  MADOT*V*ZU/ (V-ZADOT) ; 

A (3, 2)  =  MAL  TMADOT^ZAL/ (V-ZADOT) ; 

A (  3 , 3 )  -  MQ+MADOT* ( V+ZQ) / (V-ZADOT )  ; 

A  (  3 , 4  )  =  0; 

A  (  4  ,  1 )  =  0; 


A(4,2)  =  0; 

A{4,3)  -  1; 

A  (  4 , 4  )  =  0; 

%Control  Vector 
Bo (1,1)  -  XIN/V; 

Bo (2,1)  =  ZIN/ (V-ZADOT) ; 

Bo (3,1)  =  MIN  +  MADOT*ZIN/ (V-ZADOT)  ; 

Bo (4,1)  =  0; 
t  =  0.0:0.10:100.0; 

Co  ==  ones  (1,4); 

D  =  1; 

if  S  <  0 

A  =  ones (4,4); 

end 

%Determine  the  characteristic  roots  of  A 
LongModes  =  eig(A); 

% Determine  natural  frequency  and  damping  ratio  for  each  mode 
[Wnl , Z1 ]  =  damp ( LongModes ) ;  %Reference  Schmide  pg.  239 

SPrl  =  LongModes { 1 ) ; 

SPr2  =  LongModes ( 2 ) ; 

SPdamp  =  Z1  (1 ) ; 

SPnat  -  Wnl (1) ; 

Phugrl  =  LongModes (3) ; 

Phugr2  =  LongModes ( 4 ) ; 

Phugdamp  =  Zl(3); 

Phugnat  =  Wnl ( 3 ) ; 

%if  (imag (SPrl )==0) |  (imag (SPr2)==0) 

SPnat  =  sqrt { -MAL) ; 

SPdamp  =  ~ (MADOT+MQ) / { 2*SPnat ) ; 

%end 

%if  ( imag ( Phugrl )==0) |  ( imag { Phugr2 ) ==0 ) 

Phugnat  =  sqrt ( 2 ) *GRAVIT/U; 

Phugdamp  =  1/ (sqrt { 2) *CL/CD) ; 

%end 


if  (imag (A)  ==  zeros(4,4)) 
if (imag (Bo)  ==  zeros(4,l)) 

%  Model  response  to  a  unit  impulse 
[Yl,Xl,t]  =  impulse ( A, Bo, Co, D, De, t ) ; 

%  Model  response  to  a  step  input 
[Y2,X2,t]  -  step ( A, Bo, Co, D, De, t ) ; 

%  Plot  Dynamic  Response 

%figure; 

xla  =  XI ( : , 1 ) ; 

xlb  =  XI ( : ,2) ; 

xlc  =  XI ( : , 4 ) ; 

%subplot (2,1,1) ; 

^ plot ( t , x 1 a , t , xl b , t , x 1 c ) % no rma 1 i zed  velocity 
%xlabel ( ' time ' ) ; 

%ylabel (' Perturbation  value  '); 

%legend ( 1 u/U  (-)','AOA  ( deg )',' Theta  (deg)'); 

%title{ 'Longitudinal  Response  to  an  Elevator  Impulse  Input' 


%f igure; 
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x2a  =  X2 ( : , 1 ) ; 
x2b  =  X2 { : , 2 ) ; 
x2c  =  X2 (  :  , 4 ) ; 

%subplot (2, 1, 2) ; 

%plot (t,x2a,t,x2b, t,x2c) %normalized  velocity 
%xlabel ( ’time ' ) ; 

%ylabel (’ Perturbation  value  '); 

%  legend  (  '  u/U  (-)','AOA  (deg  )',  ’Theta  (deg)'); 

%title ( 'Longitudinal  Response  to  an  Elevator  Step  Input'); 

.  end 
end 

SPrlprint  =  ( real (SPrl ); imag (SPrl )] ; 

SPr2print  =  ( real ( SPr2 ); imag ( SPr2 )] ; 

Phuglprint  =  ( real ( Phugrl ); imag ( Phugrl )]  ; 

Phug2print  =  [ real ( Phugr2 ) ; imag ( Phugr2 ) ]  ; 
fprintf ( f idl , 1 \n ’ ) ; 
fprintf ( f  idl ,  *\n ' )  ; 
fprintf ( f idl,  ' \n 
fprintf ( f idl,  ’  \n 
fprintf ( f idl ,  * \n 
fprintf ( f idl,  ' \n 
fprintf ( f idl,  1 \n 
fprintf ( f idl,  ’ \n 
fprintf ( f idl,  ' \n 
fprintf (fidl,  *\n 
fprintf ( fidl,  ' \n 
fprintf ( fidl, ' \n 
fprintf ( fidl,  ' \n 
fprintf ( fidl, ' \n 


Longitudinal  Dynamic  Stability  Results  '); 

- : ,  j . 

Short  Period  roots:  Real  Imaginery’ ) ; 

%4.5f  %4 . 5f ', SPrlprint ) ; 

%  4 . 5f  %4.5f \SPr2print); 

Short  Period  damp  ratio  -  %4 . 5f ' , SPdamp) ; 

Short  Period  nat.  freq.  =  %4 . 5f ’ , SPnat ) ; 

Phugoid  roots:  Real  Imaginery’); 

%  4 . 5f  %  4 . 5f ' , Phuglprint) ; 

%4.5f  %4 . 5f ' , Phug2print ) ; 

Phugoid  damping  ratio  =  %  4 . 5f ' , Phugdamp ) ; 

Phugoid  natural  freq.  =  '%4 . 5f ' , PhUgnat ) ; 


C.23  VdocLatDir.m 


This  file  is  the  original  Smetana  code  with  some  small  modifications.  It  determines  the 
lateral-directional  stability  derivatives  and  is  called  by  analyze.m. . 

%****-*-****-*r******^***^***-*:***--*r**  +  -)f*****  +  +  sf********'*r*****-J!-*'*-*^*- ********** 

%  April  19,  2000 

% - : - 1 - 

%  VdocLatDir.m  Lateral/Directional  Stability  Derivatives 
% - ; - 

% 

%  For  the  Lateral-Directional  Case  this  program  calculates: 

%  1)  Non-Dimensional  Stability  Derivatives 

%  2)  Dimensional  Stability  Derivatives 

% 

%  Written  by  Prof.  Frederick  Smetana 
% 

%  Derivation  of  Equations  of  Motion  is  based  on 

%  'Dynamics  of  the  Airframe',  Bureau  of  Aeronautics  Report,  AE-61-4II. 

% 

%  ASSUMPTIONS: 

% 

%  1)  THE  AIRFRAME  IS  ASSUMED  TO  BE  A  RIGID  BODY. 

%  2)  THE  EARTH  IS  ASSUMED  TO  BE  FIXED  IN  SPACE,  AND,  UNLESS 

%  SPECIFICALLY  STATED  OTHERWISE,  THE  EARTH'S  ATMOSPHERE  IS 

%  ASSUMED  TO  BE  FIXED  WITH  RESPECT  TO  THE  EARTH. 
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%  3)  THE  MASS  OF  THE  AIRPLANE  IS  ASSUMED  TO  REMAIN  CONSTANT  FOR 

%  THE  DURATION  OF  ANY  PARTICULAR  DYNAMIC  ANALYSIS. 

%  4)  THE  X-Z  PLANE  IS  ASSUMED  TO  BE  A  PLANE  OF  SYMMETRY. 

%  5}  THE  DISTURBANCES  FROM  THE  STEADY  FLIGHT  CONDITION  ARE  ASSUMED 

%  TO  BE  SMALL  ENOUGH  SO  THAT  THE  PRODUCTS  AND  SQUARES  OF  THE 

%  CHANGES  IN  VELOCITIES  ARE  NEGLIGIBLE  IN  COMPARISON  WITH  THE 

%  CHANGES  THEMSELVES.  ALSO,  THE  DISTURBANCE  ANGLES  ARE  ASSUMED 

%  TO  BE  SMALL  ENOUGH  SO  THAT  THE  SINES  OF  THESE  ANGLES  MAY  BE 

%  SET  EQUAL. TO  THE  ANGLES  AND  THE  COSINES  SET  EQUAL  TO  ONE. 

%  PRODUCTS  OF  THESE  ANGLES  ARE  ALSO  APPROXIMATELY  ZERO  AND  CAN 

%  BE  NEGLECTED.  AND,  SINCE  THE  DISTURBANCES  ARE  SMALL,  THE 

%  CHANGE  IN  AIR  DENSITY  ENCOUNTERED  BY  THE  AIRPLANE  DURING  ANY 

%  DISTURBANCE  CAN  BE  CONSIDERED  TO  BE  ZERO. 

%  6)  DURING  THE  STEADY  FLIGHT  CONDITION,  THE  AIRPLANE  IS  ASSUMED 

%  TO  BE  FLYING  WITH  WINGS  LEVEL  AND  ALL  COMPONENTS  OF  VELOCITY 

%  ZERO  EXCEPT  U  SUB  0.  W  SUB  0=0  BECAUSE  THE  STABILITY  AXES 

%  WERE  CHOSEN  AS  THE  REFERENCE  AXES. 

%  7)  THE  FLOW  IS  ASSUMED  TO  BE  QUASI-STEADY. 

% 

%  The  Pertinent  Aircraft  Characteristics  are  Defined  as  Follows: 

% 

%  GRAVITY  (Assume  =  32.2  ft/sA2  for  this  Altitude  Range)  and 
%  GCOSGM  and  GSINGM  are  the  Products  of  the ' Acceleration  Due  to 
%  GRAVITY  (Assumed  =  32.2  ft/sA2  for  this  Altitude  Range)  and  the 
%  COSINE  and  SINE  Respectively  of  the  Initial  Flight  Path  Angle, 

%  GAMMA,  (Usually  Zero  for  Level  Flight). 

% 

%  Input  Data: 

% 

%  Flight  Conditions 
% 

%  RHO  -  Density  at  altitude  (slug/ftA3) 

%  U  -  Aircraft  speed  (ft/s) 

% 

%  GAMMA  -  Flight  Path  Angle. (Deg) 

%  G  -  acceleration  o*f  gravity 
% 

%  CL  -  Airplane  Lift  Coefficient 
%  ALPHA  -  Angle  of  Attack  (Deg) 

%  CDO  -  Parasite  Drag  Coefficient 
% 

%  Airplane  geometry: 

% 

%  C.G.  Location: 

% 

%  XM  -  Distance  from  the  Nose  to  the  Center  of  Gravity  (ft) 

% 

%  Wing: 

% 

%  CROOT  -  Root  Chord  of  the  Wing  (ft) 

%  B  -  Wing  Span  (ft) 

%  TR  -  Wing  Taper  Ratio  (Tip  Chord/Root  Chord) 

%  SA  -  Wing  Sweep  Angle  (Positive  Aft,  Deg) 

%  DIH  -  Wing  Dihedral  Angle  (Positive  Up,  Deg) 

% 

%  Wing  Location: 

% 

%  Xlewing  -  Distance  from  the  Nose  to  the  Leading  Edge  of  the  Wing  (ft) 

%  ZW  -  Distance  From  Body  Centerline  to  Quarter-Chord  Point  of 

%  Exposed  Wing  Root  Chord  (Positive  for  Quarter-Chord  Point  Below 

%  the  Body  Centerline,  ft) 

% 


%  2D  Aerodynamics: 


% 

%  CLA2DW  -  Two-Dimensional  Lift  Curve  Slope  of  the  Wing  (1/rad) 

%  CLA2DH  -  Two-Dimensional  Lift  Curve  Slope  of  the  Horizontal  Tail  (1/rad) 

% 

%  Horizontal  Tail: 

% 

%  SAH  -  Sweep  Angle  of  the  Horizontal  Tail  (Deg) 

%  BH  -  Span  of  the  Horizontal  Tail  (ft) 

%  Crtail  -  Root  Chord  of  the  Horizontal  Tail  (ft) 

%  TRH  -  Taper  Ratio  of  the  Horizontal  Tail  (Tip  Chord/Root  Chord) 

% 

%  Horizontal  Tail  Location: 

% 

%  Xletail  -  Distance  from  the  Nose  to  the  Leading  Edge  of  the 
%  Horizontal  Tail  (ft) 

% 

%  Vertical  tail: 

% 

%  BV  -  Span  of  the  Vertical  Tail  (ft) 

%  Crvt  -  Root  Chord  of  the  Vertical  Tail  (ft) 

%  TRvt  -  Taper  Ratio  of  the  Vertical  Tail  (Tip  Chord/Root  Chord) 

%  ETAV  -  Efficiency  Factor  of  the  Vertical  Tail 
% 

%  Vertical  Tail  Location: 

% 

%  Xlevt  -  Distance  from  the  Nose  to  the  Leading  Edge  of  the  Vertical  Tail  (ft) 

%  ZV  -  Distance  from  the  Center  of  Pressure  of  .the  Vertical  Tail  to  the 
%  X-Axis  (Positive  for  a  Vertical  Tail  Above  the  X-axis,  ft) 

% 

%  Control  Surfaces: 

% 

%  Aileron: 

%  BA  -  Span  of  a  single  Aileron  (ft) 

%  CA  -  Chord  of  an  Aileron  (ft) 

%  YI  -  Distance  from  the  Body  Centerline  to  the  Inboard  Edge  of  the  Aileron  (ft) 
.% 

%  Rudder: 

%  BR  -  Span  of  the  Rudder  (ft) 

%  CR  -  Chord  of  the  Rudder  (ft) 

% 

%  Fuselage : 

%  Note:  Fuselage  Geometry  is  Defined  for  Different  Figures 
%  in  Smetana.  Thus,  there  is  redundancy  in  the  definition 
% 

%  Referring  to  Fig.  34  p.  114  Smetana: 

% 

%  W  -  Maximum  Width  of  the  Fuselage  (ft) 

%  LF  -  Length  of  the  Fuselage  (ft) 

%  HI  -  Fuselage  Height  Measured  at  1/4  LF  from  the  Nose  (ft) 

%  H2  -  Fuselage  Height  Measured  at  3/4  LF  from  the  Nose  (ft) 

%  H  -  Maximum  Body  Height  at  Wing-Body  Intersection  (ft) 

%  R1  -  Radius  of  the  Fuselage  in  the  Vicinity  of  the  Vertical  Tail  (ft) 

% 

%  The  Following  Cards  Define  Variables  Used  to  Approximate  Fuselage 
%  Volume  by  Dividing  the  Volume  into  4  Prismoids: 

% 

%  HNOSE  -  Fuselage  Height  in  the  Nose  Region  (ft) 

%  WNOSE  -  Fuselage  Width  in  the  Nose  Region  (ft) 

% 

%  HFCY  -  Fuselage  Height  at  the  Front  of  the  Canopy  (ft) 

%  WFCY  -  Fuselage  Width  at  the  Front  of  the  Canopy  (ft) 

%  LFCY  -  Length  Along  the  Body  Centerline  from  Nose  to  Front  of  Canopy  (ft) 
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% 

%  LMH  -  Length  Along  the  Body  Centerline  from  Nose  to  Point  of 
%  Maximum  Fuselage  Height  (ft) 

% 

%  HBCY  -  Fuselage  Height  at  the  Back  of  the  Canopy  (ft) 

%  WBCY  -  Fuselage  Width  at  the  Back  of  the  Canopy  (ft) 

%  LBCY  -  Length  Along  the  Body  Centerline  from  Nose  to  Back  of  Canopy  (ft) 
% 

%  FUSELAGE  AERODYNAMICS  (Smetana  p.  104) 

% 

%  CLAFUS  -  cLalpha  of  fuselage  (1/rad) 

%  0.0525  for  round  fuselages 

%  0.1243  for  rectangular  fuselages 

% 

%  Airplane  Inertial  Characteristics 
% 

%  IZZ  -  Moment  of  Inertia  About  the  Z-Axis  (slug-ftA2) 

%  IXZ  -  Product  of  Inertia  ( ft-lbs-secA2 ) 

%  IXX  -  Moment  of  Inertia  About  the  X-Axis  (slug-ftA2) 

%  MS  -  Mass  of  the  Airplane  (slugs) 

■> 

%  Open  Output  File 

fidl  =  fopen  (  '  LatDirOut .  txt 1 ,  1  w'  )  ; 

fprintf  (fidl,  'Solution  for  Smetana  via  MATLAB'); 

fprintf  (fidl,  '.\n'); 


%  Echo  Check  of  Wing  Input  Data 
fprintf ( fidl, 1 \n  Flight  Condition’)  ; 
fprintf ( fidl, * \n  Density,  slug/ftA3 
fprintf ( fidl , 1 \n  Velocity,  ft/s 
fprintf ( fidl , 1 \n  Flight  Path  Angle,  rad 
.fprintf (fidl, ’\n  Gravity,  ft/sA2 
fprintf ( fidl, * \n  Angle  of  Attack,  deg 
fprintf ( fidl , 1 \n  cL-alpha  airplane 
fprintf ( fidl, ’ \n  CDo 
fprintf ( fidl, ' \n  Mass,  slugs 
fprintf ( fidl ,’ \n  Izz,  slug*ftA2 
fprintf ( fidl, ’ \n  Ixz,  slug*ftA2 
fprintf ( fidl \n  Ixx,  Slug*ftA2 
fprintf (fidl, 1 \n’ ) ; 
fprintf ( fidl ,' \n  Wing  Data’); 
fprintf ( fidl, ' \n  Wing  Area,  ftA2 
fprintf { fidl, ' \n  Wing  Root  Chord,  ft 
fprintf ( fidl, ' \n  Wing  Span,  ft 
fprintf ( fidl \n  Taper  Ratio 
fprintf ( fidl \n  Wing  Sweep  Angle,  rad 
fprintf ( fidl, ' \n  Wing  Dihedral,  deg 
fprintf ( fidl, ' \n  x-coord  wing  a.c.,  ft 
fprintf ( fidl ,' \n  ZW,  ft 
fprintf ( fidl ,' \n  cL-alpha  Wing  2D 
fprintf  (.fidl,  '\n'  )  ; 

fprintf ( fidl, '\n  Horizontal  Tail  Data'); 

fprintf ( fidl ,' \n  Tail  Area,  ftA2 

fprintf (fidl, '\n  Tail  Root  Chord,  ft 

fprintf ( fidl, 1 \n  Tail  Span,  ft 

fprintf ( fidl , ' \n  Taper  Ratio 

fprintf { fidl, *\n  Tail  Sweep  Angle,  rad 

fprintf (fidl, '\n  LT,  ft 

fprintf ( fidl, '\n  XHT,  ft 

fprintf  ('fidl ,' \n  cL-alpha  Horiz  tail  2D 

fprintf ( fidl, 1 \n  * )  ; 

fprintf ( fidl ,’ \n  Vertical  Tail  Data'); 


% 4 . 6f 1 , RHO) ; 
%4.2f',U); 

%4 .2f ' , GAMMA) ; 

% 4 . 2f ' , GRAVIT } ; 
% 4 . 2 f  * , ALPHA) ; 

% 4 . 2f ' , CL )  ; 

%  4 . 2  f ' , CDO  )  ; 

% 4 . 2f ' , MS )  ; 

%4 .2f ' ,IZZ)  ; 

%4 . 2f ' , IXZ ) ; 

%4 . 2f ' , IXX) ; 


% 4 . 2f ' , S )  ; 

% 4 . 2f 1 , CROOT ) ; 

%  4 . 2  f  '  ,  B )  ; 

% 4 . 2f  ' , TR) ; 

=  %  4 . 2f ' , SA) ; 
%  4 . 2f ' , DIH ) ; 

%  4 . 2f ' , XW) ; 

%4 . 2f ' , ZW) ; 

%4 . 2f  * , CLA2DW) ; 


%  4 . 2  f ' , SH ) ; 

% 4 . 2f ' , Crtail )  ; 
%  4 . 2  f ' , BH ) ; 

%  4 . 2f ' ,TRH) ; 
%4.2f ' ,SAH); 

%  4 . 2  f ' ,  LT ) ; 

%4 . 2 f  ' ,  XH*T  )  ; 

%  4 . 2f ' , CLA2DH ) ; 
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fprintf ( fidl , 

'  \n 

Tail  Area,  ft^2 

= 

%4.2f 

,SV)  ; 

fprintf (fidl, 

1  \n 

Tail  Root  Chord,  ft 

= 

%4.2f 

, Crvt ) ; 

fprintf ( fidl, 

'  \n 

Tail  Span,  ft 

= 

%4.2f 

,BV); 

fprintf ( fidl , 

'  \n 

XVT ,  ft 

= 

CM 

, XVT ) ; 

fprintf ( fidl. 

’  \n 

ZV,  ft 

%  4 . 2  f  1 

,  ZV); 

fprintf (fidl, 

•\n 

Tail  efficiency 

%4.2f 

, ETAV ) ; 

fprintf ( fidl , 

’  \n 

) ; 

fprintf (fidl, 

1  \n 

Aileron  Data ' ) ; 

fprintf { fidl. 

'  \n 

Aileron  Span,  ft 

= 

%  4 . 2f 

* , BA) ; 

fprintf ( fidl, 

'  \n 

Aileron  Chord,  ft 

= 

%  4 . 2f 

’ t CA) ; 

fprintf (fidl, 

'  \n 

YI,  ft 

= 

%4.2f 

/YI); 

fprintf ( fidl, 

1  \n 

) ; 

fprintf { fidl. 

’  \n 

Rudder  Data ’ ) ; 

fprintf ( fidl, 

'  \n 

Rudder  Area,  ft~2 

% 4 . 2f 

\SR); 

fprintf ( f idl , 

1  \n 

Rudder  Span,  ft 

= 

%  4 . 2  f 

,  BR)  ; 

fprintf ( fidl, 

’  \n 

Rudder  Chord,  ft 

= 

%4.2f 

,  CR )  ; 

fprintf ( fidl, 

1  \n 

)  ; 

fprintf ( fidl , 

'  \n 

Fuselage  Data  1 ) ; 

fprintf ( fidl. 

'  \n 

Body  length,  ft 

■  = 

% 4 . 2f 

' ,  LF)  ; 

fprintf ( fidl , 

'  \n 

Max  diameter,  ft 

%4 .2f 

’ ,WFUS) ; 

fprintf ( fidl , 

1  \n 

HI,  ft 

%  4 . 2f 

1 / HI ) ; 

fprintf ( fidl , 

1  \n 

H2 ,  ft 

% 4 . 2f 

1 , H2 ) ; 

fprintf ( fidl , 

'  \n 

H,  ft 

= 

% 4 . 2f 

'/H)  ; 

fprintf ( fidl , 

'  \n 

Rl,  ft 

= 

% 4 . 2f 

SRI); 

fprintf ( fidl , 

'  \n 

HNOSE,  ft 

as 

%4.2f 

HNOSE) ; 

fprintf ( fidl, 

1  \n 

WNOSE,  ft 

% 4 . 2f 

', WNOSE ) ; 

fprintf ( fidl, 

'  \n 

HFCY,  ft 

= 

% 4 . 2f 

’ ,  H  FCY ) ; 

fprintf ( fidl, 

'  \n 

WFCY,  ft 

= 

% 4 . 2f 

* , WFCY) ; 

fprintf ( fidl, 

'  \n 

LFCY,  ft 

%  4 . 2f 

1 , LFCY ) ; 

fprintf ( fidl. 

'  \n 

LMH,  ft 

= 

%  4 . 2  f 

’ , LMH ) ; 

fprintf ( fidl, 

1  \n 

HBCY,  ft 

= 

%  4 . 2  f 

' , HBCY) ; 

fprintf ( fidl , 

1  \n 

WBCY,  ft 

as 

%  4 . 2  f 

’ , WBCY ) ; 

fprintf ( fidl, 

'\n 

LBCY,  ft 

= 

%4.2f 

1 , LBCY } ; 

fprintf ( fidl, 

?\n 

cLalpha  fuselage 

%  4 . 2f 

’ ,CLAFUS) 

fprintf ( fidl. 

'  \n 1  )  ; 

% - 

%  START  COMPUTATIONS 
% - - - 

%  Calculate  LT, LV 
LT  =  XHT-XM; 

LV  =  XVT-XM; 


fprintf ( fidl, 1 \n ' ) ; 

□ 

fprintf (fidl, '\n  ****Internal  Calculations.  Interim  Results****  ' ); 

□ 

fprintf (fidl, ’\n  Dist  of  Horiz  Tail  from  c.g.,  ft  =  %4.6f  ' , LT ) ; 

□ 

fprintf (fidi, *\n  Dist  of  Vert  Tail  from  c.g.,  ft  =  %4.6f  ’,LV); 


%  Determine  Whether  the  Airplane  is  Low  Wing  (WP=3.0) 
%  Mid  Wing  (WP=2.0),  or  High  Wing  (WP-1.0) 


R  -  ZW/H; 

if  R  >=  .25 
WP  =  3.0; 

fprintf ( fidl , 1 \n  Low  Wing,  WP  =  3.0'); 
elseif  R  <  -.25 
WP  -  1.0; 


fprintf ( fidl , ’ \n  High  Wing,  WP  =  1.0'); 
else 

,  WP  =  2.0; 

fprintf ( fidl, ’\n  Mid  Wing,  WP  =  2.0'); 

end 


%  Calculate  Effective  Aspect  Ratio  of  Vertical  Tail  and  Lift  Curve 
%  Slope  of  Vertical  Tail 

%  Smetana,  bottom  of  pg.113 

AE  =  1 . 55*BV*BV/SV; 
if  AE  >  6.5 

%disp  (  '  Vert  Tail  AR  is  outside  [0,6.5]  it  is  =='); 

%disp (AE) ; 

%disp('  AE  =  6.5  is  used  '  ); 

%AE  =  6.5; 

end 

CLAVT  =. 0000397694*AEA5-. 000697 54 *AE~4 + . 004 614 64*AE~3- . 01 58634 *AE~2+ . . . 

. 04 0197 9*AE+. 00037328; 

%  Fig.  35  p.  114  in  Smetana  gives  cLaVT  in  1/deg.  It  has  to  be 
%  converted  to  1/rad. 

%  Convert  to  1/rad 

CLAVT  =  CLAVT*57 .2958; 

fprintf ( fidl, '\n  Effective  Aspect  Ratio  of  Vert  Tail  =  %4.6f  ' , AE ) ; 

fprintf ( fidl, ' \n  cLalpha  of  Vert  Tail,  1/rad  =  %4.6f  CLAVT) 

%  Calculate  Aspect  Ratio  of  Wing  and  Horizontal  Tail 

AR  =  B*B/S; 

ARH  =  BH*BH/ SH; 

fprintf { fidl ,' \n  Wing  Aspect  Ratio  =  %4.6f  1 , AR) ; 

fprintf ( fidl, 1 \n  Horizontal  Tail  Aspect  Ratio  =  %4.6f  ' , ARH) ; 

%  Calculate  the  Mean  Aerodynamic  Chord 

%  In  Smetana  this  is  actually  the  Average  Chord  for  the  wing 
%  Here  we  use  the  conventional  MAC 
%  mac  ( P&H  p.  90  2-78) 

ctip  =  CROOT*TR; 

CH  =  (CROOT+ctip-CROOT*ctip/ (CROOT+ctip) ) *2/3; 

fprintf ( fidl, * \n  Wing  Mean  Aerodynamic  Chord,  ft  =  %4.6f  ' ,CH); 

%  Estimate  Body  Side  Area  Using  Four  Trapezoids 

SBS  = ( HNOSE+HFCY ) *LFCY/2+ { H+HFCY ) * ( LMH-LFCY ) /2+ ( H+HBCY ) * ( LBCY-LMH ) /2+ . . . 

( HBCY+2*R1 ) * ( LF-LBCY ) /2 ; 

SBS  =  abs(SBS) ; 

fprintf ( fidl, ' \n  Estimated  Side  Body  Area,  ft~2  =  %4.6f  ’,SBS);’ 

%  Estimate  Fuselage  Volume  Using  Four  Prismoids 

VI  -  LFCY* (2* (HNOSE*WNOSE+HFCY*WFCY)+HFCY*WNOSE+HNOSE*WFCY) ; 

V2  -  (  LMH-LFCY )  *  {  2*  (  HFCY*WFCY+H*WFUS  )  +H*WFCY+HFCY* WFUS  )  ; 

V3  =  (LBCY-LMH)* (2* ( HBCY*WBCY+H*WFUS ) +H*WBCY+WFUS*HBCY ) ; 


V4  =  ( LF-LBCY )  *  (2*  {  HBCY*WBCY+  {  2*R1 )  *  (2*R1)  } +HBCY*2*R1+WBCY*2*R1 )  ; 

FUSVOL  =  ( V1+V2+V3+V4 )  /  6; 

fprintf (fidl, ’\n  Estimated  Fuselage  Volume  =  %4.6f  ’, FUSVOL) 

%  The  Following  Sections  Calculate  the  Individual  Stability 
%  Derivative  Values 

%  cYbeta  (Smetana,  pp.  103-107)  (1/rad) 

% - 

f print f ( f idl r 1 \n 1 )  ; 

fprintf (fidl, ’\n  Contributions  to  cYbeta’); 

%  Wing  contribution: 

%  Sweep 

CYBWS  =  CL*CL*6*tan  ( SA) *sin ( SA) /  (pi*AR*  (AR+4*cos  (SA)  )  )  ; 

fprintf ( fidl, ’ \n  Due  to  wing  sweep,  1/rad  =  %4.6f  ', CYBWS); 

%  Dihedral 

CYBWD  =  -.0001*abs (DIH)*57.2958; 

fprintf { fidl, '\n  Due  to  wing  dihedral,  1/rad  =  y%4.6f  ', CYBWD); 

%  Fuselage 

%  Body  Reference  Area 
BRA  =  FUSVOL''  (2/3) ; 

%  Wing  Fuselage  Interference  Factor  (Fig.  30) 
if  ZW  <  0 

KI  =  1  +.485* (ZW*2/H) ; 
else 

KI  =  1  -.85555* (ZW*2/H) ; 

end 

CYBFUS  =  -KI*CLAFUS*BRA/S; 

fprintf ( fidl, ' \n  Due  to  the  fuselage,  1/rad  =  %4.6f  CYBFUS) 

%  Vertical  Tail 
%  Top  of  p.  107 

SWDPR  =  .724  +  3 . 06* SV/  { S* ( 1  +  cos ( SA) ) )  +  . 4*ZW/H+ . 009*AR; 

%  Fig.  31 

PAR  =  BV/ ( 2*R1 ) ; 

KY  ~  1  +.166* (PAR-3.5) ; 

if  PAR  <=  2 
KY  =  .75; 

end 

if  PAR  >=3.5 
KY  =  1; 

end 

CYBT  =  -KY*CLAVT* SWDPR* SV/S; 

fprintf ( fidl, * \n  Due  to  the  vertical  tail,  1/rad  =  %4.6f  ' ,CYBT); 

%  Total  cYbeta  (1/rad) 

CYB  =  CYBWS+CY  BWD+CYBFUS+CYBT  ;• 

%  clbeta  (pp.  108-111) 

% - 

fprintf (fidl, '\n* ) ; 

fprintf ( fidl, * \n  Contributions  to  cLbeta'}; 
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ARR  =  AR; 


%  If  AR  is  outside  of  the  [1.5,10]  range  set  it  to  the  lower  or  upper 
%  limit  depending  on  whether  it  is  smaller  than  1.5  or  greater  than  10. 
if  AR  <  1.5 
ARR  =1.5; 

disp ('Value  of  AR  used  to  calculate  CLB  is  outside  preferred'); 
disp( 'range  of  1.5  to  10.0'); 
disp ( 'AR  =' ) ; 
disp (AR) ; 
elseif  AR  >10 


ARR  =10; 

disp ( (Value  of  AR  used  to  calculate  CLB  is  outside  preferred'); 
disp('range  of  1.5  to  10.0'); 
disp ( ’ AR  = ' ) ; 
disp ( AR) ; 

end 


%  Fig.  33,  p.  110 
%  Dihedral  Effect 

CLBOD  =( ( - . 20833-sqrt (. 0434-4 . 6296* (1. 0052-ARR) ) ) /2 . 31 4 81 4 8+ . . . 
.7* ( 1-TR) * ( 1-TR ) * ( ARR-1 .5}/6.5)*.0001; 


%  Convert  to  Radians 
CLBWD  =  CLBOD*  DIH*57.2958; 

fprintf ( fidl, ' \n  Due  to  dihedral  effect,  1/rad  =  %4.6f  ', CLBWD); 

%  Wing  Contribution  (p.  109} 

CLBWWD  =  CL*  (-1.25*  (  .71*TR+.29)/  ( ARR*TR )  + .  05  )*; 

fprintf ( fidl, ' \n  Due  to  the  wing,  1/rad  -  %4.6f  ', CLBWWD); 

%  Combined  Wing  Effect; 

CLBW  =  CLBWD+CLBWWD; 

fprintf { fidl, ' \n  Due  to  combined  wing  effect,  1/rad  =  %4.6f  ' , CYBT ) ; 

%  Vertical  Tail 

CLBVT  =  -CLAVT*SV*ZV*ETAV/ (S*B)  ; 

fprintf { fidl, ' \n  Due  to  the  vertical  tail  =  %4.6f  ', CLBVT); 

%  Table  10  p.  Ill  . 

if  WP  ~=  1.0 
if  WP  ~=  2.0 
DCLB=. 00064 
else 

DCLB  =0.0; 

end 

else 

DCLB  =  -.00044; 

end 


%  Total  cLbeta 

CLB  =  CLBW+CLBVT+DCLB; 

%  cNbeta 
% - - 


%  Fig.  34,  p.  114,  and  eq  at  center  of  p.  113 
A  =  XM/LF; 

if  (A  <  0.1)  |  (A  >  0.8) 
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%  Print  a  warning  message  and  set  A  to  one  of  the  extremes 
disp('Value  of  XM/LF  used  to  calculate  CNB  is  outside  preferred’); 
disp(’range  of  0.1  to  0.8'); 
disp { ’XM/LF  =' ) ; 
disp(A); 

if  A  <  0.1 
A  =  0.1; 

end 

if  A  >  0.8 
A  =  0.8; 

end 

end 

Xii  = ( A+ . 2 ) *  1 0 ; 

XP  =  Xii-3; 


%  FIG.  37  on  p.  117 

R  =  LF+LF/SBS; 

R  =  abs (R) ; 

if  (R  <  2.5)  |  (R  >  20) 

%  Print  a  warning  message 

disp{ 'Value  of  LF*LF/ SBS  used  to  calculate  CNB  is  outside  preferred'); 
disp('range  of  2.5  to  20.0’); 
disp ( ' LF*LF/SBS  =' ) ; 
disp ( R) ; 

%  Set  R  to  one  of  the  extremes  (if  it  is  out  of  range) 
if  R  <  2.5 
R  =  2.5; 

end 

if  R  >  20 
R  =  20; 

end 

end 

YO  =  -.0015609*RA3+.067  5772*R/N2-.  999884*R+1 .20213; 

YP  =  . 314*XP+YO; 

Y  =  12+YP; 

YP  =  Y-8 ; 

AA  =  sqrt ( H1/H2 } ; 

if  (AA  <  0.8)  |  (AA  >  1.65) 

%  Print  a  warning  message 

disp('Value  of  SQRT(hl/H2)  used  to  calculate  CNB  is  outside  preferred'); 
disp('range  of  0.8  to  1.65'); 
disp( ’SQRT(H1/H2)  =*); 
disp (AA) ; 

%  Set  AA  to  one  of  the 'extremes 
■  if  AA  <  0.8 
AA  =  0.8; 

end 

if  AA  >  1.65 
AA  =  1.65; 

end 

end 

XP  =  AA*YP; 
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AB  =  H/WFUS; 

if  {AB  <  .5}  |  (AB  >  2.0) 

%  Print  a  warning  message 

disp( 'Value  of  H/W  used  to  calculate  CNB  is  outside  preferred'); 
disp('range  of  0.5  to  2.0'); 
disp ( 'H/W  =  ' } ; 
disp { AB) ; 

%  Set  AB  to  one  of  the  extremes 
if  AB  <  0.5 
AB  =  0.5; 

end 

if  AB  >  2 
AB  -  2; 

end 

end 

VP  =  -( { H/WFUS ) ^ ( . 4  8*WFUS/H ) )*XP; 

Y1  =  YP; 

%  Reynolds  number  based  on  body  length  (Fig.  37  p.  117) 

RH01  =  RHO*10000 ; 

MU  =  . 34777*RH01+29 .23345; 

RN  =  RHOl*U*LF/ (MU* . 0001 ) ; 

AC  =  RN* . 000001 ; 

if  (AC  <  0.0)  |  (AC  >  80} 

%  Print  a  warning  message 

disp('Value  of  RN*10-6  used  to  calculate  CNB  is  outside  preferred'); 
disp('range  of  0.0  to  80.0'); 
disp ( ’ RN*10-6  =' ) ; 
disp ( AC) ; 

%  Set  AC  to  one  of  the  extremes 
if  AC  <  0 
AC  =  0 
end  ' 

■  if  AC  >  80 
AC  =  80; 

end 

end 

YP  =  AC/20; 

Xii  =  .00833327*YP~3-.113571*YP^2+1.02095*YP+. 446857; 

B1  =  Xii/2; 

Xii  =  -2*{Y1-B1); 

KB  = (Xii-1 ) * . 0005; 

%  Calculate  cNbeta 

CNB  =  ~KB*SBS*LF* 57 .298/ { S*B) -CYBT*LT/B; 

%  cLp 
% - 

fprintf ( f idl, ' \n ' ) ; 

fpr intf ( f idl , ' \n  Contributions  to  cLp'}; 
if  (AR  <  0}  t  (AR  >  10) 

disp ( 'Value  of  AR  used  to  calculate  CLP  is  outside  preferred'); 
disp('range  of  0.0  to  10.0'); 
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disp ( '  AR  =  ' ) ; 
disp (AR) ; 

end 

CLPAO  =  (  .  00  000  92  98  05*  AR'"  5  -  .  00031818*ARA4+ .  0037  94  26* ARA 3-  .  01577  96* ARA2- .  .  . 

. 0499261*AR-.  0500059)  +  .  209*  (1-TR) A2*  (AR-1J/9; 

fprintf (fidl, ' \n CLPAO,  1/rad  =  %4.6f  ', CLPAO); 

if ( abs ( SA)  >  0.524) 

SA  =  0.0; 

end 

CLPAOW  =  CLPAO* (AR+4*cos (SA) )/ ( (2*pi*AR/ (CLA2DW*57 .3) )  +  4*cos(SA)); 
fprintf (fidl, '\n  CLPAOW,  1/rad  =  %4.6f  ', CLPAOW); 

CLPW  =  CLPAOW- (CL* CL/ ( 8*pi*AR* cos ( SA) A2) ) * ( l+2*sin ( SA) A2* ( AR+2*cos ( SA) )/ . . . 
(AR+4*cos(SA) ) ) -CD0/ 8 ; 

fprintf (fidl, * \n  Due  to  the  wing,  1/rad  -  %4.6f  1 ,CLPW); 

CLPAOH  =  ( , 0000092 9805* ARHA 5- . 0003 181 B * ARHA4+ . 0037 94 2 6* ARM A3- . 01577 96*ARHA2- . . . 
. 04 99261*ARH-. 0500059)+. 209* (1-TRH) A2* (ARH-l)/9; 

fprintf (fidl, ' \n  CLPAOH,  1/rad  =  %4.6f  ', CLPAOH); 

CLPH  =  ( ( 0 . 5*SH*BH*BH ) / (S*B*B) ) * (CLPAOH* (ARH+4*cos (SAH) ) / . . . 

( ( 2*pi*ARH/ CLA2DH ) +4  *cos ( SAH ) ) ) ; 

fprintf ( fidl, 1 \n  Due  to  the  horizontal  tail,  1/rad  =  %4.6f  1 ,CLPH); 

CLPV  =  2*ZV*ZV*CYBT/(B*B); 

fprintf ( fidl, ' \n  Due  to  the  vertical  tail,  1/rad  =  %4.6f  !,CLPV); 

CLP  =  CLPW+CLPH+CLPV; 

%  cYp  (pp.  118-121) 

% - 

if  (SA  <  -.524)  |  (SA  >  .524) 

%  disp ( 'Value  of  SA  used  to  calculate  CYP  is  outside  preferred'}; 

%  disp(' range  of  -.524  to  .524  radians'); 

%  disp ( ' SA  = ' ) ; 

%  disp ( SA) ; 
end 

if  AR  <  5 

%  disp ('Value  of  AR  used  to  calculate  CYP  is  is  less  than  the  suggested'); 

%  disp ( 'minimum  of  5.0;  however,  due  due  the  negligible  effect  of  this'); 

%  disp( 'derivative,  one  may  ignore  the  effect  of  smaller  AR  on  CYP.'); 

%  disp ( ' AR  = ' ) ; 

%  disp(AR); 
end 

Xii  =  -(SA*57.3-30)*7/60; 

Y  =  Xii  +  3* (1-TRA1. 584  95)  ; 

CYPOCL  =  (4-YJ/10;  . 

if  { DIH  <  -10)  |  (DIH  >  10) 

%  disp( 'Value  of  DIH  used  to  calculate  CYP  is  outside  preferred'); 

%  disp('range  of  -10.0  to  10.0  degrees'); 

%  disp { 'DIH  =' ) ; 

%  disp ( DIH ) ; 


end 


184 


P  =  (DIH-lO)/17.5+.5; 

%Calculate  cYp 

CYP  =  CYPOCL*CL+P*CLP; 

%  cNp 
%  — 

fprintf ( fidl, ' \n ') ; 

fprlntf ( f idl, ' \n  Contributions  to  cNp'}; 
if  (AR  >  16) 

%  disp ( 'Value  of  AR  used  to  calculate  CNP  is  outside  preferred'); 

%  disp ('range  of  0.0  to  16.0'); 

%  disp ( ' AR  = ' ) ; 

%  disp ( AR ) ; 

end 

CNPOCL  =  -  .  00001 4  04  68*  AR'' 3+  .00064  9352*AR*AR-  .  012252 3* AR+  .  00192856; 

CNPW  =  (CL* (AR+4 ) / { AR+4*cos ( SA) ) ) * (1+6* ( 1+cos ( SA) /AR) *tan { SA) *tan (SA) /12) *CNP0CL; 
fprintf ( f idl , 1 \n  Due  to  the  wing,  1/rad  =  %4.6f  *,CNPW); 

P  -  ZV*2/B; 

if  (P  <  0)  |  (P  >  .6) 

%  disp ('Value  of  P  used  to  calculate  CNP  is  outside  preferred'); 

%  disp('range  of  0.0  to  0.6'); 

%  disp ( ' P  =' j ; 

%  disp(P); 
end 

SIG1  =  22360. 7* PA 9- 69947. 1*PA 8+93669 . 5*PA7 -7 0229. 7*  PA 6+3237 3 . 8*  PA5- .  .  . 

94  87 . 01*PA4  +  17  64 . 41* PA3-200 . 25* P*P+11 . 984  3* P- . 0014  27  86; 

if  (P  >=  .157) 

SIG2  =  .533183*  PA2- . 78216* P+. 35117; 
else 

SIG2  =  216915*  PA  9-610122*  PA  8  +  724643*  PA7-473060*PA  6+185140*  PA  5-. . 

44463. 6* PA 4+6444 . 43* PA 3-531 .134*PA2+21. 1205* P+. 0395735; 

end 

SIGMA1  =  SIG2+TR* (SIG1-SIG2) ; 

DELHOB  =  ( ZV-(ZV* cos (ALPHA) -LT*sin( ALPHA) ) )/B; 

SIGMA2  =  9 . 3*DELHOB*DELHOB*  3/B; 

ALPHA  =AL  PHA*  pi / 1 8  0 ; 

CNPV  =  ( 1*CLAVT*SV*  {  ZV*sin  (ALPHA)  +LT*cos  (ALPHA)  )  /  (S*B)  )  *  (2*  (ZV*cos  (ALPHA)  .  . 
LT*sin (ALPHA) ) /B- ( SIGMA1+SIGMA2 ) ) ; 

fprintf ( fidl, * \n  Due  to  the  vertical  tail,  1/rad  =  %4.6f  ' ,CNPV); 

ALPHA=ALPHA* 180/pi; 

CNP  =  CNPW+CNPV; 

%  cYr 
% - 

f print f ( fidl , ' \n ' ) ; 

fprintf ( fidl, ' \n  Contributions  to  cYr'); 

CYRW  =  . 14  3*CL- . 05; 

fprintf ( fidl, '\n  Due  to  the  wing,  1/rad  -  %4.6f  ' ,CYRW); 

CYRT  -  -2*LT*CYBT/B; 

fprintf  (fidl,  *\n  .Due  to  the  vertical  tail,  1/rad  =  %4.6f  '  ,.CYRT); 


CYR  -  CYRW+CYRT; 
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%  cLr 
% - 

fprintf ( fidl,  ' \n ' )  ; 

fprintf ( fidl, ' \n  Contributions  to  cLr’ ) ; 
if  (AR  <  2)  |  (AR  >  12) 

disp( ’Value  of  AR  used  to  calculate  CLR  is  outside  preferred'); 
disp{'range  of  2.0  to  12.0’); 
disp ( ’AR  =' ) ; 
disp ( AR )  ; 

end 

YP  =  -.0000247674  *ARA4  +  . 00194 1 54  *ARA3- . 04  68052*ARA2+ .4564  04  * AR- .0980299+. . . 

2.15*  ( AR+32 .4)*{TRA(1.12*(1-TR)  )  )/44.4; 

Y  =  YP+2; 

if  (SA  <  0)  |  (SA  >  .524) 

disp(’Value  of  SA  used  to  calculate  CLR  is  outside  preferred'); 
disp ( ’ range  of  0.0  to  0.524  radians'); 
disp ( ' SA  = ' ) ; 
disp ( SA) ; 

end 

Xii  =  100*Y/ ( 100-SA*57 . 3 ) ; 

CLROCL  =  Xii/20; 

CLRW  =  CLROCL*CL; 

fprintf (fidl, '\n  Due  to  the  wing,  1/rad  =  %4.6f  ’,CLRW); 

CLRT  =  -2*LT*ZV*CYBT/ { B*B)  ; 

fprintf ( fidl, ' \n  Due  to  the  vertical  tail,  1/rad  =  %4.6f  ' , CLRT ) ; 

CLR  =  CLRW+CLRT; 

%  cNr 
% - 

CNR  =  2*LT*LT*CYBT/ (B*B) - ( . 33* { 1+3*TR ) *CD0/ { 2+2*TR) - . 02* (1- (AR-6) /13-. . . 

( 1-TR)  /  2 . 5 )  *CL*CL) 

%  Stability  derivatives  due  to  aileron  deflection 
%  cYdeltaA 

%  - - 

CYDA  =0.0; 

%  cLdeltaA 
% - 


if  (AR  <  4)  !  (AR  >  12} 

%disp( ’Value  of  AR  used  to  calculate  CLDA  is  outside  preferred’); 
%disp('range  of  4.0  to  12.0'); 

%disp ( 'AR  =' ) ; 

%disp (AR) ; 

end 

K  =  0; 

P  =  YI*2/B; 

CLDABT  =  51 . 1702*PA8-238. 294* PA 7+451 . 162*PA6-444 . 985* PA 5+241 . 7  97*  PA  4  - .  .  . 

70. 254 9* PA 3+ 10. 581 9* PA 2-. 40804 5* P+. 00 00119225; 

CLDAAT  =  2 . 0833* PA 5-6 .1553*  PA4+5 . 36932*  PA 3-  .  567 235* PA2+ .  17 034 1  * P- .  000227  237; 

while  K  <=  1 

CLDABT  =  51.1702*PA8-238.294*PA7  +  451.162*PA6-444.985*PA5+241.7  97*PA4-. 

70. 2549* PA 3+10. 5819*PA2-. 408045 *P+. 0000119225; 


CLDAAT  -  2 . 0833*P^5-6.1553*P~4+5. 36932*  P"' 3- .  567  235*  P/s2+ .  170341*P-.  000227237 


if  (AR  >  6)  &  (AR  <  10) 

CLDAOT  =  CLDABT+ ( CLDAAT-CLDABT ) * (AR-6) /4  ; 

elseif  AR  <=  6 

CLDAOT  =  CLDABT ; 

elseif  AR  >=  10 

CLDAOT  =  CLDAAT; 

end 

if  K  -=  1 

CLDALT  =  CLDAOT; 

P  =  ( YI+BA) * 2/B; 
elseif  K  ==  1 

CLDAOT  =  CLDAOT-CLDALT; 

R  =  CA/CH; 

end 

K  =  K+l ; 

end 

if  (R  <  0)  |  (R  >  .4) 

disp( 'Value  of  CA/CH  used  to  calculate  CLDA  is  outside  preferred'); 
disp(' range  of  0.0  to  0..  4  '  )  ; 
disp { 'CA/CH  =' ) ; 
disp { R) ; 

end 

T  =  -65. 1062*  R'-' 4  +  50. 8227*  R'"' 3-15. 7949*  R~  2+3. 53383*  R+. 000043467; 
CLdeltaA  =  CLDAOT*T; 

%  cNdeltaA 

% - 

R  =  YI*2/B; 

if  (AR  <  3)  [  (AR  >  8) 

%disp(* Value  of  AR  used  to  calculate  CNDA  is  outside  preferred'); 
%disp(' range  of  3.0  to  8.0'); 

%disp ( 'AR  =' ) ; 

%disp ( AR) ; 

end 

if  AR  <  3 

EF1  =  -.36; 

EF2  =  -.0889976*R^3-. 006661 09*R^2+ . 0419053*R-. 284843; 

elseif  (AR  >=  3)  &  (AR  <=  4) 

AF1  =  -.36; 

BF1  =  .05380  37  *R^  3-. 133855*R''N2+. 00627854*  R-. 262321; 

EF1  -  AF1+ ( AR-3 ) * ( BF1-AF1 )  ; 

AF2  =  -.0889976*RA3-. 00666109 *RA2+. 0419053* R-. 28483; 

BF2  =  .  0549387*R'N3-.164298*R'"2+.  101864*R-.  234861; 

EF2  -  AF2+  (AR-3  )  *  { BF2-AF2  )  ; 

elseif  (AR  >  4 )  &  (AR  <  6) 

AF1  =  . 0538037*R~3-.133855*R"2+. 00627854*R-. 262321; 

BF1  =  -.0629823*R''3-.0173375*R'"V2-. 0333427*  R-. 180026; 

EF1  =  AF1+ { ( AR-4 ) /2 ) * ( BF1-AF1 ) ; 

AF2  =  . 0549387*R^3-. 164 298*R^2+ . 101864*R-. 234861; 

BF2  =  -,108911*R/N3+.0291149*R'N2+.0440961*R-. 160312; 

EF2  =  AF2+ ( (AR-4 ) / 2 ) * (BF2-AF2 ) ; 

elseif  (AR  >  4)  &  (AR  <=  8 } 

AF1  =  -. 0629823*8^3- . 017337 5*R~2- . 0333427*R- . 180026; 

BF1  =  -. 11 0526* R^2+ . 01 3893* R- . 146355; 


EF1  =  AF1+ ( ( AR-6 )/2)*(BFl-AFl); 

AF2  =  -.108911*RA3+.0291149*RA2+. 0440961* R-. 160312; 

BF2  =  -.191365*R'S3+.147284*RA2~. 00039296*  R-. 119884; 

EF2  =  AF2+  (  ( AR~6 )  /  2  )  *  (BF2-AF2  )  ; 

else 

EF1  -  -.110526*R/',2+. 013893*  R-. 146355; 

EF2  =  -. 191365*  RA3+. 147284*  R'' 2-. 0003  92  96*  R-. 119884; 

end 

EFF  =  EF2+  (  (T.R-  .25)/. 75)*  (EF1-EF2)  ; 

CNDA  =  2*EFF*CL*CLdeltaA; 

%  Stability  derivatives  due  to  rudder  deflection 
%  cYdeltaR 

% - 

R  =  SR/SV; 

if  (R  <  0)  |  (R  >  .7) 

disp {'Value  of  SR/SV  used  to  calculate  CYDR  is  outside  preferred'); 
disp( ’range  of  0.0  to  0.7'); 
disp ( ’SR/SV  =  ’ )  ; 
disp(R); 

end 

T  =  21. 7949*  RA  5-46. 4744*  R"' 4+36. 934  7*R^3~1 4 . 259*RA2+3 . 70551*R- . 000057815; 
CYDR  =  CLAVT*T*SV/S; 

%  cLdeltaR 
% - 


R  -  SR/SV; 

if  (R  <  0)  [  (R  >  .7) 

disp{’Value  of  SR/SV  used  to  calculate  CLDR  is  outside  preferred'); 
disp (’range  of  0.0  to  0.7'); 
disp ( ’SR/SV  =’ ) ; 
disp(R) ; 

end 

T  =  21. 7949* RA 5- 46. 4744* RA 4+36. 9347*RA3-14 . 259*RA2+3 . 70551*R- . 000057815; 
CLDR  =  CLAVT*T*SV*ZV/ (S*B) ; 

%Modified 

%CLDR  =  CLDR*BR/BV; 


%  cNdeltaR 
% - 

R  =  SR/SV; 

if  (R  <  0)  |  { R  >  .7) 

disp( ’Value  of  SR/SV  used  to  calculate  CNDR  is  outside  preferred’); 
disp (’range  of  0.0  to  0.7'); 
disp ( ’SR/SV  =’ ) ; 
disp ( R) ; 

end 

T  =  21. 7949* RA 5-46. 4744* 4+36. 934 7 +R^ 3-1 4 . 259*RA2+3 . 70551*R- . 000057 815; 


%  Total  cNdeltaR 


CNDR  =  -CLAVT*T*SV*LT*ETAV/ (S*B)  ; 

%  Notes: 

%  CLIN,  CDIN ,  AND  CMIN  are  the  stability  derivatives  due  to  control 

%  surface  deflections.  CLIN  is  either  the  partial  of  CL  with 

%  respect  to  rudder  deflection  or  aileron  deflection.  The  value  of  K 

%  determines  whether  they  refer  to  the  rudder  or  ailerons. 

%  If  K  is  given  the  value  1  then  CLIN,  CDIN,  AND  CMIN  are  partial 

%  derivatives  with  respect  to  rudder  deflection.  If  K=2  then  the 

%  partials  are  taken  with  respect  to  flap  deflection. 

if  (K  ==  1) 

CYIN  =  CYDR; 

CLIN  =  CL DR; 

CNIN  =  CNDR; 
else 

CYIN  -  CYDA; 

CLIN  -  CLDA; 

CNIN  =  CNDA; 

end 


fprintf { fidl, 

1  \n 

); 

fprintf { fidl , 

\n 

********  SOLUTION  ********* ); 

fprintf .( fidl , 

1  \n 

**  Lateral 

Directional  Stability  Derivatives  **’); 

fprintf ( fidl, 

\n- 

cYbeta 

= 

%4.6f',CYB); 

fprintf ( fidl, 

’  \n 

cLbet a 

« 

%  4 . 6f 1 , CLB ) ; 

fprintf ( fidl, 

'  \n 

cNbeta 

= 

%  4 . 6f ’ , CNB) ; 

fprintf ( fidl. 

'  \n 

cYp 

= 

%  4 . 6f ’ , CYP } ; 

fprintf { fidl. 

’  \n 

cLp 

= 

%  4 . 6f 1 , CLP } ; 

fprintf { fidl. 

'  \n 

cNp 

= 

%4 . 6f 1 , CNP ) ; 

fprintf { fidl. 

'  \n 

cYr 

= 

%4.6f',CYR); 

fprintf { fidl. 

’  \n 

cLr 

= 

%4 . 6f ' , CLR) ; 

fprintf ( fidl, 

'  \n 

cNr 

%4 . 6f 1 , CNR) ; 

fprintf ( fidl, 

'  \n 

cYdeltaA 

%  4 . 6f 1 , CYDA) ; 

fprintf ( fidl, 

*  \n 

cLdeltaA 

%4.6f CLdeltaA); 

fprintf ( fidl, 

1  \n 

cNdeltaA 

= 

%  4 . 6f 1 , CNDA) ; 

fprintf ( fidl. 

1  \n 

cYdeltaR 

= 

%  4 . 6f 1 , CYDR) ; 

fprintf (fidl , 

'  \n 

cLdeltaR 

= 

%  4 . 6f ’ , CLDR) ; 

fprintf (fidl. 

1  \n 

cNdeltaR 

= 

%4 . 6f 1 , CNDR) ; 

%  end  of  aerodynamic  stability  derivative  computation. 

%  Calculation  of  Dimensional  Stability  Derivatives 

%  Smetana  pp.  34-36:  l 

A  =  RHO*U*S; 

F  =  RHO*U*S*B; 

H  =  RHO*U*'S*B*B; 

D  =  RHO*U*U*S; 

E  =  RHO*U*U*S*B; 

%  A,  F,  H,  D,  E  are  just  constants  used  to  calculate  the  dimesional 
%  stability  derivatives 

if  IZZ  ==  0 
IZZ  -  ICZZ; 

end 


YV  =  A*CYB/ ( 2*MS ) ; 
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YB  =  U*YV; 

LV  =  F*CLB/ (2*IXX) ; 

LBe  =  U*LV; 

NV  =  F*CNB/ (2*IZZ) ; 

NB  =  U*NV; 

YP  -  F*CYP/ ( 4*MS )  ; 

LP  =  H*CLP/ (4*IXX) ; 

NP  =  H*CNP/ (4*IZZ) ; 

YR  =  F*CYR/ ( 4*MS ) ; 

LR  =  H*CLR/ ( 4  * IXX ) ; 

NR  =  H*ONR/ { 4*IZZ )  ; 

YDA  =  D*CYDA/ ( 2*MS ) ; 

LDA  =  E*CLdeltaA/ (2*IXX) ; 
NDA  =  E*CNDA/ (2*IZZ) ; 

YDR  =  D*CYDR/ ( 2*MS ) ; 

LDR  =  E*CLDR/ (2* IXX) ; 

NDR  =  E*CNDR/ (2*IZZ) ; 


%  Print  the  Dimensional  Stability  Derivatives 


fprintf ( fidl ,  ' \n 
fprintf { fidl, 1 \n 
fprintf { f idl , ' \n 
fprintf { fidl, * \n 
fprintf ( fidl, ' \n 
fprintf ( fidl, ' \n 
fprintf ( fidl, ' \n 
fprintf ( fidl , ' \n 
fprintf ( fidl, ' \n 
fprintf {fidl, *\n 
fprintf { fidl , 1 \n 
fprintf ( fidl, ’ \n 
fprintf ( fidl, ’ \n 
fprintf ( fidl, * \n 
fprintf ( fidl, '\n 
fprintf ( fidl, 1 \n 
fprintf { fidl, ' \n 
fprintf ( f idl , 1 \n 
fprintf (fidl, »\n 
fprintf { fidl , •  \n 


Dimensional  Stability  Derivatives  1 ) ; 

- ,  j  . 


YV 

= 

%  1 0 . 5  f  1  ,  Y  V )  ; 

YB 

= 

%10.5f »,YB) ; 

LV 

= 

%  1 0 . 5  f ' ,  L V )  ; 

LB 

= 

%10 . 5f ' , LBe ) ; 

NV 

= 

%10 . 5f 1 , NV) ; 

NB 

= 

%10 . 5f ' , NB) ; 

YP 

= 

%10 . 5f 1 , YP) ; 

LP 

= 

%10.5f »,LP); 

NP 

= 

%10 . 5f ’ , NP) ; 

YR  . 

%10.5f',YR); 

LR 

= 

%10 . 5f ' , LR) ; 

NR 

= 

%10 . 5f 1 , NR) ; 

YDA 

= 

%10.5f 1 ,YDA) ; 

LDA 

= 

%10 . 5f 1 , LDA) ; 

NDA 

= 

%10 . 5f ' , NDA ) ; 

YDR 

= 

%10 . 5f ' , YDR ) ; 

L'DR 

= 

%10 . 5f ' , LDR} ; 

NDR 

- 

%10.5f ' ,NDR) ; 

C.24  VdocLatDynm.m 


This  file  determines  the  lateral-directional  dynamic  modes  of  motion.  It  is  called  directly 
by  analyze.m. 

%******************************  ***************************************** 

%  April  19,  2000 

% - 

%  VdocLatDynm.m  Lateral-Directional  Dynamic  Stability 

% - ; - 

% 

%  For  the  Lateral-Directional  Case  this  program  calculates: 

%  1)  Pertinent  specif ications  for  each  characteristic  mode 

%  -  Dutch  Roll 
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*  -  Roll 

%  -  Spiral 

%  2)  Time  response  to  control  inputs 

% 

%  This  is  achieved  by  constructing  the  governing  state  equations  in 
%  matrix  form  for  the  lateral-directional  equations  of  motion 
% 

%  Variables  modified  to  match  the  output  from  VdocLatDir.m 
V  =  U; 
g  -  GRAVIT; 

ao  =  ALPHA;  %ALPHA  is  in  radians 

%  Calculate  A  matrix  components  ' 

G  =  1/ (1-(IXZ~2/ (IXX*IZZ)  )  )  ; 

Lbp  =  G* (LBe  +  NB* ( IXZ/IXX ) ) ; 

Lpp  =  G* { LP  +  NP* (IXZ/IXX) ) ; 

Lrp  =  G* ( LR  +  NR* ( IXZ/IXX) ) ; 

Nbp  =  G* (NB  +  LBe* (IXZ/IZZ) ) ; 

Npp  =  G* {NP  +  LP* (IXZ/IZZ) ) ; 

Nrp  =  G* (NR  +  LR* (IXZ/IZZ) ) ; 

%  Calculate  Br  and  Ba  vector  components 
Ldrp  =  G* { LDR  +  NDR* ( IXZ/IXX) ) ; 

Ndrp  =  G* (NDR  +  LDR* ( IXZ/IZZ )) ; 

Ldap  =  G* ( LDA  +  NDA* ( IXZ/IXX) ) ; 

Ndap  =  G* ( NDA  +  LDA* { IXZ/IZZ ))  ; 

%Components  of  X  vector 
beta  =  0; 

p  -  0; 
phi  =  0; 
r  =  0; 

%Create  Matrix  Equations 
Xo  =  (beta  p  phi  r] ; 

Xo  =  transpose (Xo ) ; 

Xo  =  transpose (Xo) ; 

Da  =  1;  %Aileron  input 
Dr  -  1;  %Rudder  input 
Di  -  transpose ([ Da  Dr]); 

A  ( 1 f 1 )  =  YB/V; 

A  (1,2)  =  YP/V; 

A(l,3)  -  (g/V) *cos (ao)  ; 

A  ( 1 , 4 )  =  ( YR-V) /V; 

A ( 2 , 1 )  =  Lbp; 

A ( 2 , 2 )  -  Lpp; 

A(2,3)  -  0; 

A  ( 2 , 4 )  =  Lrp; 

A ( 3 , 1 )  -  0; 

A ( 3 , 2 )  -  1; 

A(3,3)  =  0; 

A ( 3 , 4  )  =  0; 

A (  4 , 1 )  =  Nbp; 

A (4, 2)  =  Npp; 

A  ( 4 , 3  )  =0; 

A  (  4  ,  4 )  =  Nrp; 

%  Aileron  Control  Vector,  Ba 
Ba  ( 1 , 1 )  =  YDA/V; 

Ba  ( 2, 1 )  =  Ldap; 

Ba  (  3, 1 )  =  0; 

Ba  (  4 , 1 )  =  Ndap;  • 

%  Rudder  Control  Vector,  Br 
Br ( 1 , 1 )  =  YDR/V; 
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Br ( 2, 1 )  «  Ldrp; 

Br ( 3, 1 )  =  0; 

Br(4,l)  =  Ndrp; 

%Bo  =  [ Ba  Br ] ; 

t  =  0.0:0.10:100.0; 

Co  =  ones (1,4); 

D  -  1; 

%Determine  the  characteristic  roots  of  A 
LatModes  =  eig(A); 

Rollroot  =  LatModes (3); 

Troll  =  -1/Rollroot; 

%Determine  dutch  roll  characteristics 
[Wn2,Z2]  -  damp ( LatModes ) ; 

DRollrl  =  LatModes (1); 

DRollr2  =  LatModes(2); 

%disp (’ Dutch-roll  damping  ratio:'); 

DRdamp  =  Z2  ( 2 )  ; 

DRnat  =  Wn2 (2) ; 

%if  { imag ( DRollrl )==0 ) |  ( imag ( DRollr2 ) ==0 ) 

DRnat  =  sqrt ( abs { NB ) ) ; 

DRdamp  =  -0 . 5*NR/DRnat ; 

%end 

Spiralroot  =  LatModes (4); 

if  (imag{A)  ==  zeros(4,4)) 
if  (imag (Ba )==zeros (4, 1) ) 
if  ( imag (Br ) ==zeros ( 4 , 1 ) ) 

%Calculate  and  plot  response  to  aileron  deflection 
%  Model  response  to  a  step  input 
[Y2,X2,t]  =  step ( A, Ba , Co, D,  Da, t )  ; 

%  Model  response  to  a  unit  impulse 
[Yl,Xl,t]  =  impulse (A, Ba, Co, D, Da,  t ) ; 

%  Plot  Dynamic  Response  to  an  Aileron  Deflection 

%figure; 

xla  =  XI ( : ,1) ; 

xlb  =  XI ( : ,2) ? 

xlc  =  XI ( : , 3 } ; 

xld  =  XI ( : , 4 ) ; 

%subplot (2,1,1); 

%plot ( t , xla, t , xlb, t, xlc, t , xld ) 

%xlabel ( ' time ' ) ; 

%ylabel (' Perturbation  value  '); 

%legend (' Sideslip  {deg )',' roll  rate  (deg/s ) ' , ' bank  angle  (deg)','yaw  rate 
(deg/s ) ' ) ; 

%title {' Lateral-direct ional  Response  to  an  Aileron  Impulse  Input'); 

%  figure; 
x2a  «  X2(:,l); 
x2b  =  X2 ( : ,2) ; 
x2c  =  X2 ( : , 3) ; 
x2d  =  X2 ( : , 4  j ; 

%subplot (2,1,2); 
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%plot (t, x2a, t,x2b, t,x2c, t,x2d) 

%xlabel ( ' time  1 } ; 

%ylabel ( 1  Perturbation  value  '  ); 

%legend (' Sideslip  (deg)', 'roll  rate  (deg/s  }'  ,  1  bank,  angle  (deg)', 'yaw  rate 
(deg/s ) '  )  ; 

%title ( 1  Lateral-directional  Response  to  an  Aileron  Step  Input’); 

%  Calculate  and  plot  response  to  rudder  deflection 
%  Model  response  to  a  step  input 
[Y4,X4,t]  =  step (A,Br,Co,D,Dr,t) ; 

%  Model  response  to  a  unit  impulse 
[ Y3 , X3 , t ]  «  impulse (A, Br, Co, D, Dr,t) ; 

%  Plot  Dynamic  Response  to  a  Rudder  Deflection 

%f igure; 

x3a  =  X3 ( : , 1 ) ; 

x3b  =  X3{ : ,2) ; 

x3c  =  X3 { : , 3 ) ; 

x3d  =  X3(:,4); 

%subplot (2,1,1); 

%plot (t,x3a,t,x3b, t,x3c,t,x3d) %normalized  velocity 
%xlabel ( 'time* ) ; 

%ylabel (’ Perturbation  value  '); 

%legend (' Sideslip  (deg)','roll  rate  (deg/s  )  1  ,’ bank  angle  (deg)’,'yaw  rate 
(deg/s) 1 ) ; 

%title ( ' Lateral-di rectional  Response  to  a  Rudder  Impulse  Input'); 

%figure; 
x4a  =  X4 ( : , 1) ; 
x4b  =  X4 ( : ,2) ; 
x4c  »  X4 ( : , 3) ; 
x4d  =  X4 { : , 4 ) ; 

%subplot (2,1,2); 

%plot(t,x4a,t,x4b,t,x4c,t,x4d) % normalized  velocity 
%xlabel ( 'time ' ) ; 

%ylabel (' Perturbation  value  '); 

%legend (' Sideslip  (deg)','roll  rate  (deg/s )',' bank  angle  (deg)', 'yaw  rate 
(deg/s ) ' ) ; 

%title (' Lateral-directional  Response  to  a  Rudder  Step  Input'); 
end 
end 


end 

DRrlprint  =  [ real ( DRollrl ) ; imag { DRollrl )  ]  ; 
DRr2print  =  [real ( DRollr2 ); imag ( DRollr2 )]  ; 


fprintf ( f idl, ' \n ' )  ; 
fprintf (fidl, '\n' ) ; 

fprintf ( fidl, '\n  Lateral-Directional 

fprintf ( fidl ,' \n  - 

fprintf ( fidl, ' \n  Roll  root 
fprintf ( fidl, ' \n  Roll  time  constant 
fprintf ( fidl, ' \n  Dutch  Roll  roots: 
fprintf ( fidl , ' \n 
fprintf ( fidl, ' \n 

fprintf { fidl , 1 \n  Dutch  Roll  damping 
fprintf ( fidl, ' \n  Dutch  Roll  natural 
fprintf ( fidl, ’ \n  Spiral  root 


Dynamic  Stability  Results  '); 

- .); 

=  %4 -5f' , Roll  root) ; 

=  %4.5f', Troll); 

Real  Imaginery'); 

%  4 . 5f  %4.5f,  DRrlprint); 

%4.5f  %4.5f ' ,DRr2print) ; 

•atio=  %  4 . 5f  ' ,  DRdatnp )  ; 

:req.=  %4 . 5f ' , DRnat ) ; 

=  %4.5f  %  4 . 5f,' ,  Spiral  root )  ; 
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C.25  Controls.m 


This  file  calculates  the  control  deflection  requirements  and  is  called  by  analyze.m. 

%Controls . m 

%  This  code  determines  the  necessary  control  surface  deflections  under 
%  varying  circumstances.  These  deflections  form  constraints  based 
%  on  a  user-defined  maximum  and  minimum  control  surface  travel. 

%  Elevator  Control 
DEmax  =  25; 

DEmin  =  -25; 

%  First  concerned  with  static  control 
ff  =  [CLA  CLDE;  CMA  CMDE] ; 
gg  -  [cLmax-CL; -CM] ; 

Deflection  =  inv(ff)*gg; 

DEstatic  =  Deflection ( 2 )* 180/pi ;  %  gives  result  in  degrees 

%  Secondly  concerned  with  takeoff  rotation 
Vrotate  ='  l.ll*VTO; 

Aground  =  atan ( (Ln/12-Lm/12 ) / (CGmgr-CGngr ) ) +IWING*pi/180; 

%Temp  fix 
CLO  =  0; 

CMO  -  -0.04;  %Depends  on  Type  of  Airfoil 
ACent  =  Xlewng+ . 3*CR00T; 

DErotate  =  180/pi* (Wguess* { CGmgr-XM) /(. 5*densSL*Vrotate"'2*S*MACwing ) -CMO-CMA* Aground  ... 

-CLO* ( CGmgr- ACent ) /MACwing-CLA* Aground* { CGmgr-ACent ) /MACwing ) / { CMDE  +  CLDE* ( CGmgr- 
ACent ) /MACwing ) ; 

%  Aileron  Control 
DAmax  =15; 

DAmin  =  -15; 

%  Concerned  with  value  of  steady  (static)  roll  rate  from  Schmidt 
Pstatic  =  5;  %deg/sec 

DAstatic  =  ( ~Pstatic*pi/180*LDA/LP) ; 

%  Rudder  Control 

%  Concerned  with  control  capability  in  a  the  crosswind  condition 
BetaMax  =  10; 

BetaMin  =  -10; 

DRmax  =  30; 

DRmin  =30; 

ff  =  (CL  CYDR  CYDA;  0  CLDR  CLdeltaA;  0  CNDR  CNDA] ; 
ggl  =  -[CYB;  CLB;  CNB] *BetaMax*pi/180; 
gg2  =  -[CYB;  CLB;  CNB] *BetaMin*pi/180; 

Deflectionl  =  inv(ff)*ggl; 

Deflection2  =  inv(ff}*gg2; 

DR1  =  Deflectionl ( 2 ) *180/pi ; 

DAI  =  Deflectionl (3) *180/pi; 

DR2  =  Deflection2 ( 2 ) *180/pi; 

DA2  =  Deflection2 (3) *180/pi; 


C.26  Allconstraints.m 


This  file  calculates  and  organizes  all  of  the  available  constraints.  This  is  called  by 
analyze,  m. 

%A11 constraints . m 

%This  file  assigns  the  full  set  of  constraints  to  the  g  and  geq  vectors 
CONSset  =  wklread { ' UserConst raints .wkl * )  ; 

SMmax  =  CONSset (1);  SMmin  =  CONSset ( 2 );  CYBo  =  CONSset (3);  CLBo  =  CONSset ( 4 ) ; 

CNBo  =  CONSset (5);  DEmax  =  CONSset (6);  DEmin  =  CONSset (7);  DAmax  «  CONSset ( 8 ) ; 
DAmin  =  CONSset  (9);  DRmax  =  CONSset  (10);  DRmin  =  CONSset  (11);  PhDmin  =  CONSset  (12) 
SPmin  -  CONSset (13);  SPmax  =  CONSset (14);  SPnatmax  =  CONSset (15); 

SPnatmin  =  CONSset ( 16 ); DRdmin  =  CONSset (17);  Trollmax  =  CONSset (18); 


g ( 1 f 1 ) .  =  (YI+BA)/(.5*B)  -  1; 
g  ( 2, 1 )  =  (YFlap+BFlap)/YI  -  1; 
g(3,l)  =  BT/B-1; 
g  (  4, 1 )  =  BV/B-1; 
g { 5  r 1 )  =  BE/ ( . 5*BT) -1; 
g { 6, 1 )  =  BR/BV-1; 
g  (7  r 1 }  =  CA/ ( .2*CROOT)-l; 
g  (  8, 1 )  =  CHE/ ( ,5*Crtail) -1; 
g(9,l)  =  CR/(0.5*Crvt)-l; 

g(10,l)  =  (abs (Xletail ) +abs (Crtail ) ) /abs (LB) -1; 

g(ll,l)  =  (abs (Xlevt )+abs (Crvt ) )/abs(LB) -1; 

g ( 12, 1 )  -  (abs (Xlewng) tabs (CROOT) ) /abs (Xletail) -1; 

g(13,l)  =  (abs (Xlewng) +abs (CROOT) ) /abs (Xlevt ) -1; 

g(14,l)  =  abs (XM) /abs (Xletail ) -1; 

g(15,l)  =  abs (CGngr/CGmgr )  -1; 

g ( 16, 1 )  =  abs (CGngr/XM)  -  1; 

g  ( 17 , 1 )  =  abs (XM/CGmgr )  -  1; 

g  ( 18, 1 )  =  AE/6.5  -  1; 

g(19,l)  -  -AE; 

g ( 20, 1 )  -  ART/10  -  1; 

g { 21 , 1 )  =  -ART; 

g ( 22, 1 )  =  AR/8  -  1; 

g { 23, 1 )  =  l-AR/4 ; 

g(24,l)  =  StaticMargin/SMmax  -  1; 
g(25,l)  =  1-StaticMargin/SMmin; 
g (26, 1 )  -  CYB; 
g  ( 27,1)  =  CLB; 
g (28, 1)  =  -CNB; 
g { 29, 1 )  =  CYB/CYBo-1 ; 
g ( 30, 1 )  =  CLB/CLBo-1; 
g ( 31 , 1 )  »  CNB/CNBo-1 ; 
g(32',l)  =  abs  (  DEstatic ) /DEmax-1 ; 
g(33,l)  =  abs (DEstatic) /DEmin-1; 
g(34,l)  =  -1  -  DErotate/DEmin; 
g(35,l)  =  DAstatic/DAmax-1 ; 
g(36,l)  =  -1  -  DAs tat ic/ DAmin; 
g ( 37 , 1 )  -  DRl/DRmax  -  1; 
g { 38 , 1 )  =  -1-DR1/ DRmin; 
g { 39, 1 )  =  DR2/ DRmax- 1 ; 
g ( 4  0 , 1 )  =  -l-DR2/DRmin; 
g  (  4 1 , 1 )  =  DAI /DAmax  -  1; 
g  (  42 , 1 )  =  -1 -DAI /DAmin; 


g ( 43, 1 )  =  DA2/ DAmax  -  1; 
g  (  4  4 , X )  =  -1-DA2/ DAmin; 
g(45,l)  =  1-Phugdamp/PhDmin; 
g(46,l)  =  1-SPdamp/SPmin; 
g(47,l)  =  SPdamp/SPmax-1; 
g(48,l)  =  SPnat/SPnatmax  -  1; 
g{49,l)  =  1-SPnat/SPnatmin; 
g(50,l)  =  1-DRdamp/DRdmin; 
g(51,l)  -  abs (Troll ) /Trollmax-1 ; 
g(52,l)  -  WmissFuel/Wfw  -  1; 
g(53,l)  =  -WmissFuel; 

g  =  [g;  gmission] ; 

%  Equality  Constraints 
geq(lfl)  =  tipangle/15  -  1; 

geq(2,l)  =  clearance/15  -  1; 

geq(3,l)  =  Pnose/Wguess-0 . 1 ; 

geq (4,1)  =  Pmain/Wguess-0 . 9; 

geq(5,l)  =  Wcalc/Wguess-1; 

geq (6,1)  -  CGngr-abs ( CGngr ) ; 

geq(7,l)  =  Lm  -  abs(Lm); 

geq  (8,1)  =  Ln  -  abs(Ln); 

geq (9,1)  =  LB  -  abs (LB) ; 

geq (10,1)=  Xlewng  -  abs(Xlewng); 

geq(ll,l)=  Xletail-  abs (Xletail ) ; 

geq(12/l)=  Xlevt  -  abs(Xlevt); 


%  Create  output  file  for  constraint  values 
fid3  =  fopen  (  'Output  .  txt'  ,  'vr*  )  ; 
fprintf ( fid3, 1 \n  Final  Design  Characteristics'); 
fprintf ( fid3, ' \n ' ) ; 

fprintf ( fid3, ' \n  Static  Margin  =  % 4 . 6f ' , StaticMargin ) 

fprintf ( fid3, ' \n  Static  Elevator  Deflection,  deg  =  %4 . 6f 1 , DEstatic) ;  ' 

fprintf ( fid3, ’ \n  Rotation  Elevator  Deflection,  deg  =  %4 . 6f ' , DErotate ) ; 

fprintf ( fid3, ' \n  Static  Aileron  Deflection,  deg  -  %4 . 6f ' , DAstatic) ; 

fprintf ( fid3, ' \n  Rudder  Deflection  (4-beta),  deg  =  %4.6f',DRl); 

fprintf { fid3, ' \n  Aileron  Deflection  (+beta),  deg  =  %4.6f,,DAl); 

fprintf ( fid3, ' \n  Rudder  Deflection  (-beta),  deg  =  %4.6f',DR2); 

fprintf ( fid3, ’ \n  Aileron  Deflection  (-beta),  deg  =  %4.6f',DA2); 

fprintf ( fid3, ' \n  Mission  Fuel  Burn,  lb  =  %4 . 6f ', WmissFuel ) ; 

fprintf ( fid3,  ' \n  Tip  Angle  Criterion,  deg  =  % 4 . 6f ' , tipangle ) ; 

fprintf ( fid3, ' \n  Ground  Clearance  Criterion,  deg  =  % 4 . 6f ', clearance ) ; 

fprintf ( fid3, * \n  Nose  Gear  Loading,  lb  =  %4 . 6f ' , Pnose ) ; 

fprintf ( fid3, ' \n  Nose  Gear  Loading  Ratio  =  %4 . 6f ' , Pnose/Wguess ) 

fprintf ( fid3, * \n  Main  Gear  Loading,  lb  =  %4.6f',Pmain); 

fprintf ( fid3, ' \n  Main  Gear  Loading  Ratio  =  % 4 . 6f ' , Pmain/Wguess ) 

fprintf ( fid3, ' \n  Calculated  Total  Weight,  lb  =  %4 . 6f ' , Wcalc) ; 

fprintf  (  fid3,  ' \n  Approximated  Empty  Weight,  lb  =  %4  -  6f ' , We2.)  ; 

fprintf ( fid3, ' \n  Calculated  Empty  Weight,  lb  =  %4.6f',Wel); 

fprintf (fid3, »\n' ) ; 
fprintf ( fid3, ' \n ' ) ; 

fprint f ( f id3, 1 \n  Results  of  Raymer  Component  Weight  Estimation’}; 
fprintf ( fid3, ' \n ') ; 

fprintf ( fid3, ’ \n  Total  Aircraft  Weight,  lb  =  %4 . 2f * , Wtotal) ; 
fprintf ( fid3, ' \n  Wing  Weight,  lb  =  %4.2f',Wwing); 

fprintf ( fid3, ' \n  Horizontal  Tail  Weight,  lb  =  %4.2f’,Wht); 
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fprintf ( fid3, 1 \n  Vertical  Tail  Weight,  lb 
fprintf { fid3, '\n  Fuselage  Weight,  lb 
fprintf ( fid3, ' \n  Main  Gear  Weight,  lb 
fprintf ( fid3, ’ \n  Nose  Gear  Weight,  lb 
fprintf ( fid3, 1 \n  Engine  Weight,  lb 
fprintf ( fid3, ' \n  Fuel  System  Weight,  lb 
fprintf ( fid3, 1 \n  Flight  Controls  Weight,  lb 
fprintf { fid3, ’ \n  Hydraulics  Weight,  lb 
fprintf ( fid3, ' \n  Avionics  Weight,  lb 
fprintf ( fid3, ' \n  Electrical  System  Weight, lb 
fprintf ( fid3, ' \n  AC  and  Anti-ice  Weight,  lb 
fprintf ( fid3, ' \n  Furnishings  weight,  lb 
fprintf (fid3, '\n' } ; 

fprintf { fid3, ' \n  Calculated  CG  position,  ft 
fprintf ( f id3, ' \n ' ) ; 

fprintf ( fid3, ' \n  Constraint  Vector  Values’); 

count  =  1 : 1 : length  {g ) ; 

count  -  transpose ( count ) ; 

countl  =  transpose ([ count  g]); 

fprintf ( fid3, ' \n  %2.0f  %4 . 4 f ’, countl ) ; 

fprintf ( fid3, ’ \n ’ ) ; 

count  =  1 : 1 : length  (geq ) ; 

count  =  transpose ( count ) ; 

count2  =  transpose { [count  geq]); 

fprintf { fid3, '\n  %2.0f  %4 .4 f ’ , count2 ) ; 

fprintf  (  fid‘3,  '  \  n '  ) ; 

fprintf ( fid3, ' \n  Design  Variable  Values’); 

count  =  1 : 1 ; length { DV) ; 

count  =  transpose ( count ) ; 

count3  =  transpose ([ count  DV] ) ; 

fprintf ( fid3, ' \n  %2.0f  %4 . 4 f ’ , count3) ; 


%  4 . 2  f ’ , Wvt ) ; 

%4 . 2f ’ , Wf use )  ; 

%4 . 2f ' , Wmain ) ; 

% 4 . 2f ' ,Wnose)  ; 

%4 . 2  f ' , Wengine ) ; 
%4 . 2f ' , Wf uel ) ; 

%4 . 2f ’ , Wcontrol ) ; 
%4 . 2f ’ , Whydra ) ; 

%4 . 2f ’ , Wavion ) ; 

% 4 . 2f ’ , Welec )  ; 

%4 . 2f ' , Wac)  ; 

%  4 . 2  f  ’  , Wf urn )  ; 

%  4 . 4  f ’ , Xcg) ; 


C.27  plotdesign.m 

This  file  was  developed  to  allow  the  user  to  obtain  a  picture  of  the  resulting  design.  It  is 
a  work  in  progress  and  has  not  yet  been  linked  to  the  overall  program.  It’s  use  is  outlined 
in  Appendix  B. 


%  plotdesign.m 

%  graphically  depict  the  resulting  designs 

%  Calculate  tip  chords 
Ctipwing  =  TR*CROOT; 

Ctiptail  =  TRT*Crtai 1 ; 

Ctipvert  =  TRvt*Crvt; 

%  Convert  sweeps  to  radians 

SA  =  P  P ( 2  7 ) ; SAH  =  PP(30);SAvt  =  PP(32); 

SA  =  SA*pi/180; 

SAH  =  SAH*pi/180; 

SAvt  =  SAvt*pi/180; 


%  Draw  the  fuselage 
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Xf uselage  =  [02  LFCY  LBCY  LMH  .  9*LB  LB  LB]; 

Yfuselage  =  [0  WNOSE/2  WFCY/2  WFUS/2  WBCY/2  R1  Rl/3  0]  ; 

patch (Xfuselage,  Yfuselage, ' b ’) ; 

patch ( Xf us el age,  -Yfuselage, ' b ’ ) ; 

axis ( [-2,30,-20,20] ) ; 

axis  equal 

%  Draw  the  wing 
xa  =  Xlewng; 

xb  =  Xlewng+tan ( SA) *B/2; 
xc  =  xb+Ctipwing; 
xd  =  XI ewng+CROOT ; 

ya  =  0; 

yb  =  { B/2 ) /cos ( SA) ; 
yc  =  yb; 
yd  -  0; 


Xwing  =  [xa  xb  xc  xd] ; 

Ywing  =  [ya  yb  yc  yd]; 
patch (Xwing, Ywing, '  r ') ; 
patch (Xwing, -Ywing,  * r ') ; 

%  Draw  the  flaps 

beta  =  atan (yb/ (xd-xc) ) ; 

Xf lap  =  [xd-CFlap-cos (beta ) *YFlap  xd-CFlap-cos (beta) * (BFlap+YFlap)  ... 

xd- ( BFlap+YFlap ) *cos (beta)  xd-cos (beta ) *YFlap] ; 

Yflap  =  [YFlap  YFlap+BFlap* sin ( beta )  YFlap+BFlap*sin (beta )  YFlapj ; 
patch (Xf lap, Yf lap, ' g ' ) ; 
patch (Xf lap, -Yflap, 1 g ’ ) ; 

%  Draw  the  ailerons 

yy  =  YFlap+BFlap*sin (beta ) + . 2; 

Xail  =  [xd-CA-cos (beta ) *YI  xd-CA-cos (beta ) * (BA+YI )  xd- ( BA+YI ) *cos { beta )  xd-cos (beta ) *YI ] ; 
Yail  =  [yy  yy+BA*sin (beta )  yy+BA*sin (beta )  yy]; 
patch (Xail, Yail, ' g ') ; 
patch (Xail, -Yail, ’g* ) ; 

%  Draw  the  horizontal  tail 
xa  =  Xletail; 

xb  =  Xletail+tan ( SAH) *BT/2; 
xc  =  xb+ctiptail; 
xd  -  Xletail+Crtail ; 

ya  =  0; 

yb  «  (BT/ 2) /cos  (SAH)  ; 
yc  =  yb; 
yd  *=  0; 

Xtail  =  [xa  xb  xc  xd) ; 

Ytail  =  [ya  yb  yc  yd]; 
patch (Xtail , Ytail , 1 r ' ) ; 
patch(Xtail, -Ytail, 'r1 ); 

%  Draw  the  elevator 
%  Draw  the  ailerons 
beta  =  atan ( yb/ (xd-xc) ) ; 

Xail  -  [xd-CHE  xd -CHE- cos (beta ) * ( BE)  xd- ( BE ) *cos (beta )  xd] ; 

Yail  =  -[0  BE*sin (beta )  BE*sin(beta)  0]; 
patch (Xail, Yail,  1 g  * ) ; 
patch (Xail , -Yail , 1 g ’ ) ; 


%Draw  the  prop 
Xprop  -  [0  0  .1  .1]  ; 

Yprop  =  [0  Dprop/2  Dprop/2  0]; 

%patch (Xprop, Yprop,  ' k ') ; 

%patch (Xprop, -Yprop, ' k ' )  ; 

%%  BEGIN  SIDE  VIEW  DRAWING 
figure; 

Xfusel  -  [1,0,  1,  . 5*LB, LB] ; 

Yfusel  =  [0,-1. 5, -3, -3,0]  ; 
patch (Xfusel,  Yfusel,’bT); 

axis ( [-2,30,-8,81 ) ; 

axis  equal 

SAvt  =  50*pi/180; 

%Draw  veritical  tail 
xa  =  Xlevt; 

xb  -  Xlevt+tan ( SAvt ) *BV/2; 
xc  =  xb+Ctipvert; 
xd  =  Xlevt+Crvt; 

ya  =  0; 

yb  =  ( BV) *cos ( SAvt ) ; 
yc  =  yb; 
yd  =  0; 

Xvert  -  [xa  xb  xc  xd] ; 

Yvert  =  [ya  yb  yc  yd]; 
patch (Xvert, Yvert, ' r' ) ; 

%Draw  the  rudder 
%  Draw  the  elevator 
%  Draw  the  ailerons 
beta  =  atan (yb/ (xd-xc) ) ; 

Xrud  =  [xd-CR  xd-CR+abs ( cos (beta ))*( BV)  xd+ ( BV) *abs { cos (beta ) )  xd] ; 

Yrud  =  [0  yb  yb  0]; 
patch (Xrud, Yrud, ' g 1 ) ; 

%Draw  the  wing 

Xwing  -  [Xlewng  Xlewng  Xlewngt . 25*CROOT  Xlewng+CROOT  Xlewng+CROOT] ; 

Ywing  =[0.2.4.10]; 
patch (Xwing, Ywing, 1 y’ ) ; 

%Draw  the  horiz.  tail 

Xtail  =  [Xletail  Xletail  Xletail+ . 25*Crtail  Xletail+Crtail  Xletai 1+Crtail ] 
Ytail  =[0.2.4.10]; 
patch (Xtail , Ytail, ’ y ’ ) ; 

%Draw  landing  gear 

Xngr  =  [CGngr  CGngr  CGngr+.2  CGngr+.2]; 

Yngr  =  [-3  -3-Ln/12  -3-Ln/12  -3]; 
patch (Xngr, Yngr, 1 k ’) ; 

Xmgr  =  [CGmgr  CGmgr  CGmgr+.2  CGmgr+.2]; 

Ymgr  =  [-3  -3-Lm/12  -3-Lm/12  -3] ; 
patch (Xmgr, Ymgr, ' k 1 ) ; 


